Question

Помогите пожалуйста написать программу на языке pascal по этому заданию. Заполните массив А из 100 элементов последовательно идущими целыми числами от 1 до 100. Напишите программу, которая вычислит в этом массиве сумму элементов, кратных двум и оканчивающимся на 6.

Answer 1

var

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

i,sum:integer;

begin

sum:=0;

for i:=1 to 100 do

begin

a[i]:=i;

if (a[i] mod 2 = 0) and (a[i] mod 10 = 6) then

sum:=sum+a[i];

end;

writeln(sum);

end.