Регистрация
nky43939nky
29.05.2022 09:05
Информатика
Есть ответ 👍

Назовите это
Это смесь чайника, утюга и часов​

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

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

lizadaf2003
lizadaf2003
4,4(81 оценок)

часосвистюг

Объяснение:

anton4rf4
anton4rf4
4,6(51 оценок)
Const n = 7; var a: array[1..n]of integer;   max,i: integer; begin   //заполнение массива значениями в диапазоне   //от -100 до 100   //и одновременно находим максимальный элемент   max: =-100;   for i: =1 to n do begin       a[i]: =random(201)-100;       if a[i]> max then max: =a[i];       write(a[i]: 3);   end;   writeln;   //в цикле находим положительные и   //меняем их на максимальный элемент   for i: =1 to n do begin       if a[i]> 0 then a[i]: =max;       write(a[i]: 3);   end;   writeln;   end.

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