Составить программу ** языке Паскаль для следующей задачи: даны тиражи 20 центральных...

Question

Составить программу на языке Паскаль для следующей задачи: даны тиражи 20 центральных журналов СНГ за текущий год, требуется найти общий тираж этих журналов.

Answer 1

Если я правильно понял задачу:

var s, b, a: integer;
begin
for b:=1 to 20 do begin
writeln('Введите тираж ', b, ' журнала.');
read(a);
s:=s+a;
end;
writeln('Общий тираж: ',s);
end.