Заполнить массив 15-ю случайными целыми числами из промежутка [8; 30] и вывести на экран сумму элементов, оканчивающихся цифрой 7.

uses crt;

var

f:array[1 .. 15] of integer;

s,i:integer;

begin

randomize;

begin

s:=0;

for i:=1 to 15 do begin

a[i]:= random(22)+8;

if (a[i] mod 10=7) then s:=s+a[i];

end;

write (s);

end.

Объяснение: