Нужно заполнить целочисленный массив числами 1 - 10. Потом умножить каждый элемент массива на 2 и вывести что получилось на экран
Нужно заполнить целочисленный массив числами 1 - 10. Потом умножить каждый элемент массива на 2 и вывести что получилось на экран
Гость
Ответ(ы) на вопрос:
Гостьvar
mas:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do
begin
mas[i]:=i;
mas[i]:=mas[i]*2;
write (mas[i]:3);
end;
end.
Не нашли ответ?
Похожие вопросы