Дан массив 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.