Объяснение:
program zadan;
const n=10;
var a:array [1..10] of integer;
i:integer;
begin
i:=1;
while i<=10 do
write('a[i]= ');readln(a[i]);
i:=i+1;
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
напишите программу на паскале
Объяснение:
program zadan;
const n=10;
var a:array [1..10] of integer;
i:integer;
begin
i:=1;
while i<=10 do
begin
write('a[i]= ');readln(a[i]);
i:=i+1;
end;
end.