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

201

494

Посмотреть ответы 2

Ответы на вопрос:

lynnikova05

Информатика

4,8(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.