Дан массив целых чисел ,содержащий 15 элементов.Вывести на экран индексы четных элементов массива .
Answers & Comments
KotShredingera
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.
Answers & Comments
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.