Информатика

Силан

26 августа, 19:35

Дан массив, содержащий 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 (__) - __;