Question

СРОЧНО ПАСКАЛЬ! ! !

Answer 1

const p=1000;

var i,n,s:integer;

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

begin

s:=0;

readln (n);

for i:=1 to n do begin

readln(a[i]);

if a[i] mod 100 = 11 then s:=s+a[i];

end;

writeln('Сумма = ',s);

end.

Answer 2

Ответ:

PascalABC.NET

begin

 var A := ReadSeqInteger('Вводи:', ReadInteger('Укажите длину последовательности: '));

 A.Where(x -> x mod 100 = 11).Sum.Println;

end.