№1
Разберите программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран индексы элементов с четными значениями.
Var i:integer;a: array[1..10] of integer;beginrandomize;writeln(Массив:);for i:=1 to 10 doa[i]:=random(10)+1;writeln(a[,i,] = a[i]);end;writeln;writeln(Индексы с нечетными значениями:);for i:=1 to 10 doif (a[i] mod 2 = 0) then write(i, );end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
