Предмет: Информатика,
автор: NoGluk
Дан массив 1,4,5,7,8
Найти сумму всех элементов
В Pascal ABC
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Химия,
автор: mia2510
Предмет: Математика,
автор: salimbra989
Предмет: Қазақ тiлi,
автор: batiraybolat81
Предмет: Математика,
автор: zhsoldatova