Помогите пожалуйста решить...
1.задан массив A[1..10].Найти количество отрицательных элементов в массиве
2.задан массив A[1..10].Найти количество положительных элементов в массиве.
3.Задан массив A[1..10].Найти количество элементов в массиве равных A[1]
4.Задан A[1..10].Найти максимальный элемент массива.

1

Ответы и объяснения

2014-01-16T22:26:50+04:00
1,2,3,4)
program gt;
var a:array[1..100]of integer;
n,i,w,r,q,max:integer;
begin
read(N);
w:=0;r:=0;q:=0;
for i:=1 to n do
begin
read(a[i]);
if(a[i]<0)then w:=w+1;
if(a[i]>0)then r:=r+1;
if(a[i]=a[1])then q:=q+1;
end;
max:=a[1];
for i:=2 to n do
if(a[i]>max)then max:=a[i];
writeln('количество отрицательных элементов в массиве=',w);
writeln('количество положительных элементов в массиве=',r);
writeln('количество элементов в массиве равных A[1]=',q);
writeln('максимальный элемент массива=',max);
end.