Решаем задачи Абрамян на Паскале. Series34

Series34. Даны целые числа $$K$$, $$N$$, а также $$K$$ наборов целых чисел по $$N$$ элементов в каждом наборе. Для каждого набора выполнить следующее действие: если в наборе содержится число 2, то вывести сумму его элементов; если в наборе нет двоек, то вывести 0.

Решение:

program Series34;

var

K,N,Ni,Ki,A,Sum:Integer;

Check:boolean;

begin

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

for Ki:=1 to K do

begin

Sum:=0;

Check:=False;

for Ni:=1 to N do

begin

write('Введите ',Ni,' число из ',Ki ,' набора:');

Readln(A);

Sum:=Sum+A;

if A=2 then Check:=True;

end;

if Check then Writeln(Sum)

else Writeln('0');

end;

end.

Другие задачи из раздела Series можно посмотреть здесь.

Комментарии 1

//pascalABC.net

write('введите кол-во наборов: ');

var k:=ReadlnInteger('k =');

write('введите кол-во элементов в наборах: ');

var n:=ReadlnInteger('n =');

for var i:=1 to k do

writeln('введите ',i,' набор из ',n,' элементов');

var a:=ArrGen(n,t->ReadInteger);

if a.Contains(2) then

println('сумма элементов в',i,'наборе =',a.Sum)

else println(0);

readln;readln;

Ответить

Решаем задачи Абрамян на Паскале. Series34

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ