написать прогрумму, которая заменяет массив А нечетными натуральными числами от 1 до N (N вводится с клавиатуры)
10-11 класс
|
var
i,n:integer;
a:array[1..1000]of integer;
begin
readln(n);
i:=1;
while i<=n do
begin
a[i]:=i;
write(a[i],' ');
i:=i+2;
end;
end.
Другие вопросы из категории
for i:=1 to 3 do
for j:=1 to 3
write(j);
Составить программу на языке Турбо-Паскаль, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: Данные числа x, y являются координатами точки, лежащей в первой координатной четверти
Читайте также
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
чисел больше 100 - "Много".
30 элементов. Заполнить с помощью случайных чисел, вычислить сумму отрицательных чисел и количество положительных чисел. Заранее спасибо!
2.пользователь вводит натуральное число N. Найти сумму всех натуральных чисел от 1 до N.