Присвоить переменной b случайное целое число из промежутка [0; 10)
(2 балла) Запишите команду присваивания по данным указаниям

Присвоить переменной i случайное целое число из промежутка [8; 20)
(2 балла) Запишите команду присваивания по данным указаниям

289

429

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

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

GardenBrid

Информатика

4,5(35 оценок)

Program ok; var a: array[1..10] of integer; i,max: integer; begin randomize; for i: =1 to 10 do begin a[i]: =random(100); write(a[i], ' '); if (a[i] mod 5 = 0) and (a[i] > max) then max: =a[i]; end; write('максимальное значение кратное 5 = ', max); end.