дан массив к(5) опишите этот массив и заполните его с клавиатуры
Answers & Comments
ad1997ya
Uses crt; var i: integer; k: array [1..5] of real; begin clrscr; writeln ('Input array:'); for i:=1 to 5 do begin write (i,') '); readln (k[i]); end; writeln ('Your array:'); for i:=1 to 5 do write (k[i],' '); readln (); end.
Answers & Comments
var
i: integer;
k: array [1..5] of real;
begin
clrscr;
writeln ('Input array:');
for i:=1 to 5 do
begin
write (i,') ');
readln (k[i]);
end;
writeln ('Your array:');
for i:=1 to 5 do
write (k[i],' ');
readln ();
end.