Вычислите значение переменных для данных команд присваивания

139

283

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

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

Tina2103

Информатика

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

Var a: array [1..10] of integer; i,k,s: integer; begin randomize; writeln('массив: '); for i: =1 to 10 do begin a[i]: =random(191)+10; write(a[i],' '); end; writeln; for i: =1 to 10 do begin if (a[i]< 100) div 10)mod 2)=0) then s: =s+a[i] else if div 10)mod 10) mod 2) = 0 then s: =s+a[i]; end; writeln('сумма элементов у которых вторая с конца цифра четная: ',s); end.