Дан массив 1,4,5,7,8 Найти сумму всех элементов В Pascal ABC
Дан массив 1,4,5,7,8
Найти сумму всех элементов
В Pascal ABC
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы