Дан массив целых чисел ,содержащий 15 элементов.Вывести на экран индексы четных элементов массива .
Дан массив целых чисел ,содержащий 15 элементов.Вывести на экран индексы четных элементов массива .
Гость
Ответ(ы) на вопрос:
Гостьvar mass:array[1..15] of integer;
var i:integer
;begin
Randomize;
for i:=1 to 15 do begin
mass[i]:=Random (46) - 25;
write(mass[i],' ');
end;
writeln;
for i:=1 to 15 do begin
if (mass[i] mod 2 = 0) then
writeln(i);
end;
end.
Не нашли ответ?
Похожие вопросы