Регистрация
соннышко
21.03.2023 10:40
Информатика
Есть ответ 👍

3 кб= 3*8=бит
16 бит : 8=байт
решить нужно

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

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

Лиза200111111
Лиза200111111
4,5(21 оценок)
Program n1; const n=10; var a: array[1..n] of integer; i,max: integer; begin randomize; a[1]: =random(11)-10; max: =a[1]; writeln('исходный массив: '); for i: =2 to n do begin a[i]: =random(21)-10; write(a[i],' '); if (abs(a[i])< max) and (a[i] mod 2=0) and (a[i]< 0) then max: =a[i]; end; writeln; writeln('максимальный отрицательный,кратный 2: ',max); end.

Популярно: Информатика