Заполнить одномерный массив с именем А 15-ю первыми нечётными числами и вывести его на экран(язык - паскаль)

8 Сен 2019 в 03:42
221 +1
0
Ответы
1

program OddNumbers;
var
A: array[1..15] of Integer;
i, num: Integer;
begin
num := 1;
for i := 1 to 15 do
begin
A[i] := num;
num := num + 2;
end;

for i := 1 to 15 do
begin
writeln(A[i]);
end;
end.

20 Апр 2024 в 02:45
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир