Заполнить массив случайными числами от -10 до 50. найти разность между максимальным и минимальным элементами массива
277
391
Ответы на вопрос:
паскаль абц -
const n=45;
var
a: array [1..n] of integer;
ras,i,x,j: integer;
begin
for i: =1 to n do
a[i]: =random(-10,50);
x: =a[1]; // икс - самое маленькое
j: =a[1]; // джей - самое большое
for i: =2 to n do
begin
if x > a[i] then
x: =a[i]; // если икс меньше следующего значения, то присваеваем ему икс
if j < a[i] then
j: =a[i]; // по аналогии, только если джей больше
end;
ras: =j-x;
writeln('разность между числами ', j,' и ',x,' равна ', ras);
end.
Популярно: Информатика
-
karina94112.12.2021 05:27
-
Виолета13103.02.2022 05:16
-
ПростоЧел22807.06.2023 12:02
-
Djamkaa032505.06.2022 19:29
-
darina22405.02.2022 04:16
-
Оливия2003.06.2021 15:05
-
samsamokruxa20.11.2020 13:48
-
goida8222.07.2020 08:34
-
421356630.03.2020 09:31
-
grinevvlad98xuy07.01.2020 04:55