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

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

В Pascal ABC

Question

Информатика

Мелания

24 декабря, 10:54

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

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

В Pascal ABC

+5

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