№1 Разберите программу, которая заполняет массив a[1..10] случайными целыми числами в...

Question

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

Answer 1

Var i:integer; a: array[1..10] of integer; begin randomize; writeln('Массив:'); for i:=1 to 10 do a[i]:=random(10)+1; writeln('a[',i,'] = 'a[i]); end; writeln; writeln('Индексы с нечетными значениями:'); for i:=1 to 10 do if (a[i] mod 2 = 0) then write(i,' '); end.