Kod: Zaznacz cały
program tablicowy;
uses crt;
type a=array[1..4] of integer;
var d:a;
su:integer;
procedure pierwsza (var b:a);
var i:integer;
begin i:=1; for i:=1 to 4 do begin
writeln ('Podaj element o indeksie 1.',i);
readln (b[i]); end;
for i:=1 to 4 do begin write (b[i]);
write; end;
end;
procedure suma (var s:integer);
var i:integer; b:a;
begin i:=1; s:=0;
for i:=1 to 4 do s:=s+b[i];
writeln (s); end;
begin clrscr;
pierwsza(d);
suma(su);
readkey;
end.