Предмет: Информатика,
автор: ZaraSAN
Помогите пожалуйста решить...
1.задан массив A[1..10].Найти количество отрицательных элементов в массиве
2.задан массив A[1..10].Найти количество положительных элементов в массиве.
3.Задан массив A[1..10].Найти количество элементов в массиве равных A[1]
4.Задан A[1..10].Найти максимальный элемент массива.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Другие предметы,
автор: asylaikenzhebai
Предмет: Английский язык,
автор: annockaotrada20
Предмет: Математика,
автор: DanaArsyEva
Предмет: Химия,
автор: vitas96
Предмет: Физика,
автор: AlinaMal