Дан массив, содержащий 70 целых чисел из промежутка [-100; 100]. Опишите на

языке программирования Паскаль алгоритм, позволяющий найти и вывести наименьшее содержащееся в массиве положительное число, десятичная запись которого оканчивается цифрой 7. Гарантируется, что в массиве есть хотя бы один положительный элемент, десятичная запись

которого оканчивается цифрой 7.

const N=70;

var

a: array [1 ... N] of integer;

i, j, m: integer;

begin

for i:=1 to N do

a[i]:=random () - ;

Question

Дия

5 сентября, 12:55

+1

Ответы (1)

Знаете ответ на вопрос?

Эва · Answer 1

M:=98;

for i:=1 to N do begin

if (a[i]>0) and (a[i] mod 7 = 0) and (a[i]< m) then

m:=a[i];

end;

writeln (m)