Ответы на вопрос:
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.
Популярно: Информатика
-
austry133708.01.2021 16:25
-
mariyshak5701.08.2020 19:49
-
Maks280127.04.2023 23:00
-
Nilufar77710.06.2021 16:52
-
бэйба12315.05.2021 09:12
-
alina186627.08.2022 00:00
-
mafobe6614.07.2022 11:15
-
1000Умник16.02.2021 11:53
-
Мафаняяя18.07.2020 09:49
-
Надежда77733306.01.2022 00:19