Заполнить массив случайными числами. найти на сколько максимальный элемент массива больше минимального. надо.
240
383
Ответы на вопрос:
Const n=10; var a: array[1..n] of integer; max,min,i: integer; begin randomize; for i: =1 to n do begin a[i]: =random(51); write(a[i],' '); end; writeln; max: =a[1]; min: =a[1]; for i: =2 to n do begin if a[i]> max then max: =a[i]; if a[i]< min then min: =a[i]; end; writeln('max = ',max,' min = ',min); writeln('max-min = ',max-min); end. пример: 9 26 10 3 27 47 18 6 34 15 max = 47 min = 3 max-min = 44
// pascalabc.net 3.2, сборка 1356 от 04.12.2016 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n='),10,50); a.println; writeln('max-min=',a.max-a.min) end. пример n= 15 26 18 47 26 48 38 43 36 30 11 27 49 42 29 15 max-min=38
var
a : real : = 6.5;
b : real : = 13;
begin
writeln('прямоугольник: ');
writeln('a=', a);
writeln('b=', b);
writeln('периметр p=', (a+b)*2);
writeln('площадь s=', a*b);
end.
Популярно: Информатика
-
Анц02.01.2021 09:50
-
Ломастер25463029.01.2021 20:23
-
azharik2k1719.06.2023 20:38
-
юлияиванова114.06.2021 17:27
-
Ynushkevich33330.12.2022 14:44
-
nataly5410.06.2020 03:43
-
Karina098006.06.2020 06:49
-
Abzik520322.10.2021 12:23
-
elsem7806.12.2021 10:12
-
sququ103.03.2021 21:29