Ответы на вопрос:
1)
var
a: array [1..5] of integer;
i,s: integer;
begin
randomize;
for i: =1 to 5 do begin
a[i]: =random(6);
write (a[i],' ');
s: =s+a[i];
end;
writeln;
writeln (s);
readln;
end.
2)
var
a: array [1..20] of integer;
i,k,l: integer;
begin
randomize;
for i: =1 to 5 do begin
a[i]: =random(6)+5;
write (a[i],' ');
if odd(a[i])=false then k: =k+1 else l: =l+1;
end;
writeln;
writeln (k,' ',l);
readln;
end.
Популярно: Информатика
-
ilyxa2415.01.2020 03:22
-
снежок34520.07.2020 01:24
-
Irish2302.05.2021 10:31
-
qq50301.04.2021 19:12
-
Алжсжсзвьвлвждчяь16.09.2022 03:59
-
Вишня00726.08.2022 15:07
-
shegve25.06.2023 16:56
-
Diglir24.09.2020 21:29
-
alexeymaksimov12.07.2021 15:10
-
artemmavericksmesrri04.10.2021 02:16