Другие вопросы по теме Информатика
Кристина6701001
22.04.2020 09:27
katya022
22.04.2020 09:27
jonjonson
12.03.2021 17:14
Школьник2O18
12.03.2021 17:15
danilpro2017
12.03.2021 17:17
AndreevaAS2
12.03.2021 17:17
potapovp016
16.04.2019 14:21
Danil200000006
16.04.2019 14:27
driftstiwrx
16.04.2019 14:30
Популярные вопросы
- Найдите площадь прямоугольника, если его ширина равна 6 2/3 см, а длина — в...
3 - Легковой и грузовой автомобили выехали одновременно из пункта А в противоположных...
2 - В школе учатся 393 учащихся, среди них мальчиков на 57 меньше, чем девочек....
2 - Сумма двух чисел, в которой одно из двух слагаемых в 1,56 раза больше другого,...
1 - Ломаная состоит из двух звеньев. Одно звено ломаной в 1,2 раза больше другого....
2 - Прогулочный катер поплыл от пристани к озеру по течению реки. Путь до озера...
1 - Периметр прямоугольного участка равен 6,8 км, причем длина на 1,5 км больше...
3 - Периметр треугольника равен 20,4 см. Найдите длины сторон треугольника, если...
2 - Учащиеся пятых, шестых и седьмых классов собрали для лесничества 343,3 кг еловых...
2 - Для ремонта класса купили 14,4 кг краски. Белой эмали было куплено в 4,5 раза...
3
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.