Предмет: Информатика,
автор: fhdnjdkfheke
Помогите пожалуйста по информатике !!!!
Срочно!!!!
Дам много баллов))).
Приложения:

Ответы
Автор ответа:
0
1.
var a,i,m:integer;
begin
for i:=1 to 12 do
begin
a:=random (14)+5;
if a > m then m:=a;
write(a,' ')
end;
writeln;
writeln('max = ',m)
end.
2.
var a,i,k:integer;
begin
for i:=1 to 7 do
begin
a:=random (15)+1;
if a mod 2 = 0 then k:=k+1;
write(a,' ')
end;
writeln;
writeln('Чётных ',k)
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: mommy28
Предмет: Українська мова,
автор: ferko38
Предмет: Английский язык,
автор: deeeeadinside
Предмет: Литература,
автор: ermolin77