Срочно! Нужна помощь!!!
1. Заполнить массив натуральными числами 12345.....
2. Заполнить массив по правилу:1 3 5 7 9 11 13.....
Вводится количество элементов массива (N<100).
1. Заполнить массив натуральными числами 12345.....
2. Заполнить массив по правилу:1 3 5 7 9 11 13.....
Вводится количество элементов массива (N<100).
More Questions From This User See All
Answers & Comments
var
a: array[1..100] of integer;
n, i: integer;
begin
read(n);
for i := 1 to n do a[i] := i;
writeln('Полученный массив: ');
for i := 1 to n do write(a[i], ' ');
end.
2.
var
a: array[1..100] of integer;
n, i: integer;
begin
read(n);
for i := 1 to n do a[i] := i * 2 - 1;
writeln('Полученный массив: ');
for i := 1 to n do write(a[i], ' ');
end.