Заповнити масив К із 8 елементів значеннями з клавіатури і вивести в рядок,вказавши його порядковий номер.
Answers & Comments
Marishe2002
Var x: array[1..8] of longint; Var i,a : longint; Begin for i:= 1 to 8 do begin; readln(a); x[i] := a; end; Writeln('Массив K:'); for i:= 1 to 8 do begin; writeln(',i,' = ',x[i]); end; Readln; end.
Answers & Comments
Var i,a : longint;
Begin
for i:= 1 to 8 do
begin;
readln(a);
x[i] := a;
end;
Writeln('Массив K:');
for i:= 1 to 8 do
begin;
writeln(',i,' = ',x[i]);
end;
Readln;
end.