Нужно заполнить массив нечетными натуральными числами. размерность n вводится с клавиатуры. элементы массива вывести на экран в строку через пробел, перед элементом напечатать его номер и знак-разделитель «: ». выполнить на языке pascal
262
329
Ответы на вопрос:
program massiv;
var b, i, g: integer;
a: real;
n: array [1..1000] of integer;
begin
write('введите количество элементов в массиве: ');
readln(b);
writeln('введите элементы массива: ');
for i: =1 to b do
read(n[i]);
write('вывод элементов массива: ');
for i: =1 to b do
begin
if n[i] mod 2 = 0 then write
else
write(n[i],': ',i,' ');
end;
end.
var a: array of integer;
i,n: integer;
begin
write('введите количество элементов массива: ');
read (n);
a: =new integer[n];
for i: =0 to n-1 do
begin
a[i]: =random(100);
if a[i] mod 2 = 0 then a[i]: =a[i]+1
end;
for i: =0 to n-1 do write (i,': ',a[i],' ')
end.
Популярно: Информатика
-
gmailua12.06.2020 11:07
-
Nosochekxnncnnc29.07.2022 21:34
-
Нєдєля13.03.2022 04:28
-
sayanasssss04.04.2022 06:21
-
dilnaz777125.10.2022 21:27
-
Iliawer30.04.2022 06:57
-
Maguire09.07.2022 20:45
-
wfew27.10.2022 18:48
-
жалеоИвантелтуштуш19.08.2022 14:19
-
alinanazarova2002.06.2022 20:23