Определить количество чисел больших 0 среди: а1, (паскаль)

МариКэт1 МариКэт1    1   04.07.2019 04:40    0

Ответы
иоапгрдгоп иоапгрдгоп  27.07.2020 23:21
Const n=10;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('vvedite massiv');
for i:= 1 to n do 
readln(a[i]);
k:=0;
for i := 1 to n do 
if a[i]>0 then 
 inc(k);

writeln('kolicestwo =',k);

readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика