в одномерном массиве из n чисел вывести на экран положительные элементы и сообщение об их количестве.
XEKER:
n и значения элементов массива задавать с клавиатуры, или же можно взять любые числа?
Ответы на вопрос
Ответил allangarsk
1
const nz = 30;var a:array[1..nz] of integer; i,n,k:integer;
begin
write('Введите число элементов n');
Readln(n);
for i:=1 to n do begin
a[i]:= random(100)-50;write(a[i]:4);end;writeln;
for i:=1 to n do begin
if a[i]> 0 then begin write(a[i]:4); k:=k +1;end;end;writeln;
write('количество положительных элементов = ',k);end.
begin
write('Введите число элементов n');
Readln(n);
for i:=1 to n do begin
a[i]:= random(100)-50;write(a[i]:4);end;writeln;
for i:=1 to n do begin
if a[i]> 0 then begin write(a[i]:4); k:=k +1;end;end;writeln;
write('количество положительных элементов = ',k);end.
Новые вопросы