Предмет: Информатика,
автор: Аноним
Напишите программу на паскале (8 класс)
Приложения:

Ответы
Автор ответа:
1
Ответ:
program test;
var a: array [1..10] of integer;
i,m: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
if i=1 then m:=a[i] else
if a[i]>m then m:=a[i];
write(a[i],' ')
end;
writeln;
write(m)
end.
valgrisa:
random (21) даёт числа от 0 до 20, 0 - 10 = -10, 20 - 10 = 10
Похожие вопросы
Предмет: Английский язык,
автор: Полkа
Предмет: Русский язык,
автор: pasha1337171
Предмет: Английский язык,
автор: Полkа
Предмет: Математика,
автор: gcggvfgvcg
Предмет: Физика,
автор: krysu