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

Series29. Даны целые числа $$K$$, $$N$$, а также $$K$$ наборов целых чисел по $$N$$ элементов в каждом наборе. Вывести общую сумму всех элементов, входящих в данные наборы.

Решение:

program Series29;
var
  K,N,Ni,Ki,A,S:Integer;
begin

 Write('Введите кол-во элементов в наборе N: ');
 Readln(N);

 Write('Введите кол-во наборовK: ');
 Readln(K);

 S:=0;
 for Ki:=1 to K do
  for Ni:=1 to N do
   begin
     write('Введите ',Ni,' элемент из ',Ki ,' набора :');
     Readln(A);
     S:=S+A;
   end;

 writeln('Сумма элементов равна: ',S);
end.

program Series29;

var

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

begin

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

Readln(N);

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

Readln(K);

S:=0;

for Ki:=1 to K do

for Ni:=1 to N do

begin

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

Readln(A);

S:=S+A;

end;

writeln('Сумма элементов равна: ',S);

end.

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

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

begin
  var sum:=0;
  write('введите кол-во наборов: ');
  var k:=ReadlnInteger('k =');
  write('введите кол-во элементов в наборах: ');
  var n:=ReadlnInteger('n =');
  for var i:=1 to k do
  begin
    writeln('введите ',i,' набор из ',n,' элементов');
    var a:=ArrGen(n,t->ReadInteger);//или a:=ReadArrInteger(n);
    sum:=sum+a.Sum;
  end;
  print('Сумма элементов во всех наборах =',sum);
end.

var sum:=0;

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);//или a:=ReadArrInteger(n);

sum:=sum+a.Sum;

print('Сумма элементов во всех наборах =',sum);

Ответить

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

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

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

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