Question

1.задан массив a[1..10].найти количество отрицательных элементов в массиве 2.задан массив a[1..10].найти количество положительных элементов в массиве. 3.задан массив a[1..10].найти количество элементов в массиве равных a[1] 4.задан a[1..10].найти максимальный элемент массива.

Answer 1

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.