Помогите пожалуйста очень нужно! Заполнить одномерный массив элементами, значения которых равны их удвоенным порядковым номерам.
Answers & Comments
Pelageya
Program massiv; var a: array[1..10] of integer; i: integer; begin for i:=1 to 10 do a[i]:=i*2; for i:=1 to 10 do writeln ('a[',i,']=',a[i],' '); end.
Answers & Comments
var a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
a[i]:=i*2;
for i:=1 to 10 do
writeln ('a[',i,']=',a[i],' ');
end.