Предмет: Информатика,
автор: 528465
одномерный массив .найти количество элементов больших . меньших и равных нулю.A=[1..10].
Ответы
Автор ответа:
0
var n:array[1..10] of longint;
a,b,c,i:longint;
begin
for i := 1 to 10 do read(n[i]);
for i := 1 to 10 do if n[i] < 0 then a := a + 1 else if n[i] = 0 then b := b + 1 else c := c + 1;
writeln(c,' ',a,' ',b);
end.
a,b,c,i:longint;
begin
for i := 1 to 10 do read(n[i]);
for i := 1 to 10 do if n[i] < 0 then a := a + 1 else if n[i] = 0 then b := b + 1 else c := c + 1;
writeln(c,' ',a,' ',b);
end.
Похожие вопросы
Предмет: Математика,
автор: nadezdaalempiadina
Предмет: География,
автор: inkar00887
Предмет: Геометрия,
автор: makpal5058
Предмет: Биология,
автор: dron163163