массив из 17 элементов заполнить целыми случайными числами от -15 до 15. Вывести на экран не чётные элементы и их номера
Ответы
Ответ дал:
0
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
k,i: integer;
begin
N := 17;
for i:=1 to N do
a[i] := Random(30)-15;
for i:=1 to N do
begin
if (a[i] mod 2)<>0 then
writeln (a[i], ' ', i);
end;
end.
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
k,i: integer;
begin
N := 17;
for i:=1 to N do
a[i] := Random(30)-15;
for i:=1 to N do
begin
if (a[i] mod 2)<>0 then
writeln (a[i], ' ', i);
end;
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
8 лет назад
8 лет назад