Предмет: Информатика, автор: lepssd

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

Приложения:

Ответы

Автор ответа: defendercryak

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.

Kilekanisic: begin
var a := ReadSeqInteger(ReadInteger('n =')).Where(x -> x mod 100 = 11).Sum.Print
end.

defendercryak: не думаю ,что пользователь разберется во всем этом, раз он сам не может решать такое простое задание, да и для огэ моё решение больше подойдет

KnowsUser1: самое забавное, что ребята, которые задают такие вопросы, с такими простыми заданиями, зачастую радостно благодарят за решение на .NET и ничего не спрашивают)

Автор ответа: KnowsUser1

Ответ:

PascalABC.NET

begin

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

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

end.

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Русский язык, автор: 415

составить предложение со словами жёлтый, золотой, лимонный, янтарный.