Дан массив 1,4,5,7,8

Найти сумму всех элементов

В Pascal ABC

Question

Информатика

Мелания

22 апреля, 11:21

Дан массив 1,4,5,7,8

Найти сумму всех элементов

В Pascal ABC

+1

Ответы (2)

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

Лада · Answer 1

var

k, s: byte;

a: array [0 ... 4] of byte;

begin

a[0] : = 1; a[1] : = 4; a[2] : = 5; a[3] : = 7; a[4] : = 8;

for k : = 0 to 4 do

s + = a[k];

writeln (s) ;

end.

Флора · Answer 2

Var

K, s: byte;

A: array [0 ... 4] of byte;

begin

A[0] : = 1; a[1] : = 4; a[2] : = 5; a[3] : = 7; a[4] : = 8;

for K : = 0 to 4 do

s + = a[k];

writeln (s) ;

end.

Дан массив 1,4,5,7,8Найти сумму всех элементовВ Pascal ABC

Дан массив 1,4,5,7,8

Найти сумму всех элементов

В Pascal ABC