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

Question

Информатика

Феофилакт

26 ноября, 18:31

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

+4

Ответы (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.