Предмет: Информатика,
автор: Аноним
Напишите программу на паскале (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
Интересные вопросы
Предмет: Українська мова,
автор: Monrо1982
Предмет: Другие предметы,
автор: тачка95
Предмет: Английский язык,
автор: georgibol
Предмет: Английский язык,
автор: salavretskaya
Предмет: Алгебра,
автор: bxndjdudf