Составить программу, используя одномерные массивы: Найти наименьший элемент в числовом массиве М (20), который лежит в интервале [10.50]
(Pascal)

Question

Информатика: Составить программу, используя одномерные массивы: Найти наименьший элемент в числовом массиве М (20), который лежит в интервале [10.50]​(Pascal)

МаленькаяПианистка · Answer

var

m: array[1..20] of integer;

i, min: integer;

begin

randomize;

min := 100;

WriteLn('Массив:');

for i := 1 to 20 do

begin

m[i] := random(100);

Write(m[i], ', ');

if (m[i] < min) and (m[i] >= 10) and (m[i] <= 50) then min := m[i];

end;

WriteLn;

if min <> 100 then WriteLn('Минимальный элемент массива в интервале [10..50] равен ', min)

else WriteLn('Массив не содержит элементов в интервале [10..50]');

end.

Объяснение:

Составить программу, используя одномерные массивы: Найти наименьший элемент в числовом массиве М (20), который лежит в интервале [10.50]​(Pascal)

Составить программу, используя одномерные массивы: Найти наименьший элемент в числовом массиве М (20), который лежит в интервале [10.50]
(Pascal)