Вычислить сумму пяти целых чисел, которые являются массивом. (Pascal)

Question

Информатика

Акиндин

18 марта, 14:25

Вычислить сумму пяти целых чисел, которые являются массивом. (Pascal)

+5

Ответы (1)

Знаете ответ?

Нелли · Answer 1

Const

N = 5;

Var

A:array[1 ... N] of integer;

i:integer;

S:real;

Begin

S:=0;

Write ('Введите пять целых чисел: ') ;

For i : = 1 to N do

Begin

Read (A[i]) ;

S:=S+A[i]

End;

WriteLn ('S = ', S) ;

ReadLn

End.