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

266

305

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

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

ДаняВетренный

Информатика

4,7(63 оценок)

Var a: array[1..10] of integer; i, ind: integer; begin randomize; for i: =1 to 10 do begin a[i]: =random(11); write (a[i],' '); end; f or i: =1 to 10 do if a[i] mod 2 = 1 then ind: =i; writeln; write ('последний нечетный элемент под номером ',ind); end.