Помогите пожалуйста очень нужно! Заполнить одномерный массив элементами, значения которых равны их удвоенным порядковым номерам.
Помогите пожалуйста очень нужно!
Заполнить одномерный массив элементами, значения которых равны их удвоенным порядковым номерам.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы