Ответы на вопрос:
1. современное решение // pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',50); a.println; var min: =a.min; a.transform(x-> x< 0? x*min: x); a.println end. пример n= 15 -34 7 0 -48 4 42 35 14 -47 6 -29 43 46 40 -18 1632 7 0 2304 4 42 35 14 2256 6 1392 43 46 40 864 2. популярное до сих пор в школах решение на turbopascal 7.01 (1983г.) uses crt; const nn=100; var i,n,min: integer; a: array[1..nn] of integer; begin clrscr; randomize; write('n='); read(n); min: =100; for i: =1 to n do begin a[i]: =random(101)-50; write(a[i],' '); if a[i]< min then min: =a[i] end; writeln; for i: =1 to n do if a[i]< 0 then a[i]: =a[i]*min; for i: =1 to n do write(a[i],' '); writeln; readkey end.
Популярно: Информатика
-
кошечка54524.03.2023 13:43
-
rodionpanchenk01.03.2020 09:32
-
aleksandrovauli05.07.2020 16:25
-
RinaRika21.03.2022 17:42
-
epicrare1528.08.2021 19:23
-
Atedoz03.05.2021 21:40
-
ulialepsha08.08.2022 21:49
-
argen0819.09.2020 11:06
-
228ie22804.05.2020 12:47
-
SkottHelimboorg06.04.2022 14:26