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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
