Блог учителя Информатики

Решение задачи ExamBegin14


Условие задачи:

На вход в первой строке подается целое положительное число N, а во второй строке — набор из N целых чисел. Вывести сумму всех чисел из исходного набора.


uses PT4Exam;

var
  a, n, i, sum: integer;

begin
  Task('ExamBegin14');
  Read(n);
  sum := 0;
  for i := 1 to n do
  begin
    read(a);
    sum := sum + a;
  end;
  Write(sum);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

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