Предмет:
ИнформатикаАвтор:
zara85var a: array[1..20] of integer;
i: integer;
k: integer;
begin
randomize;
for i:= 1 to 20 do a[i] := random(100) + 1;
k := 0;
for i:= 1 to 20 do begin
writeln(a[i]);
if a[i] > 50 then inc(k);
end;
writeln();
writeln(k);
end.
Автор:
havenooiwДобавить свой ответ
Предмет:
Русский языкАвтор:
snickersuit2Ответов:
Смотреть
Предмет:
Английский языкАвтор:
kalifrtvОтветов:
Смотреть
Предмет:
МатематикаАвтор:
heath16Ответов:
Смотреть
Предмет:
ОбществознаниеАвтор:
rex11Ответов:
Смотреть