Дан целочисленный массив из 30 элементов.вывести количество отрицательных,положительных и равных нулю элементов(массив записать в 1.txt)
131
427
Ответы на вопрос:
Var t: text; a: array[1..30] of integer; i,m,b,r: integer; begin assign(t,'output.txt'); rewrite(t); for i: =1 to 30 do begin read(a[i]); if a[i]> 0 then b+=1 else if a[i]< 0 then m+=1 else r+=1; write(t,a[i],' '); end; write(m,' ',b,' ',r); close(t); end.
Program i5; var s,d,r,i: integer; a: array [1..30] of integer; begin for i: =1 to 30 do readln(a[i]); s: =0; d: =0; r: =0; for i: =1 to 30 dot begin if a[i]< 0 then s: =s+1; if a[i]> 0 then d: =d+1; if a[i]=0 then r: =r+1; end; writeln(s,'_',d,'_',r); end.
Популярно: Информатика
-
1к2о3т4я503.05.2021 08:58
-
НИЗНАЙКА200625.07.2022 11:33
-
borisrvadarya019.04.2021 16:50
-
nurik123891012.05.2023 10:52
-
arsenboosss75704.08.2022 23:25
-
selipups9629.07.2021 18:23
-
Михаилович22330.10.2020 22:01
-
olenkayatsev27.01.2020 19:01
-
Макс33221131.12.2020 02:32
-
AntohaPastuha13.01.2023 03:31