Разберите программу, которая заполняет массив а (1 ... 10) случайными целыми числами в диапазоне от 1 до 10 и выводит на экран индексы элементов с чётными значениями

Question

Информатика

Федора

24 июня, 02:13

Разберите программу, которая заполняет массив а (1 ... 10) случайными целыми числами в диапазоне от 1 до 10 и выводит на экран индексы элементов с чётными значениями

+2

Ответы (1)

Знаете ответ на вопрос?

Мирон · Answer 1

Var ar:array[1 ... 10] of integer;

i:integer;

begin;

randomize;

writeln ('Array') ;

for i:=1 to 10 do

begin;

ar[i]:=random (1,10) ;

write (ar[i]:4) ;

end;

writeln;

writeln ('Result:') ;

for i:=1 to 10 do

if ar[i] mod 2=0 then write (i:4) ;

end.