Ответы на вопрос:
Program mm; var a: array[1..12] of integer; begin for i: =1 to 12 do begin а[1]: =5; а[2]: =4; а[3]: =-3; а[4]: =1; а[5]: =0; а[6]: =-4; а[7]: =(у тебя не написано); а[8]=25; а[9]=-8; a[10]=-5; а[11]=-17; а[12]=-1; end; writeln('вот исходный массив'); for i: =1 to 12 do writeln('a[',i,']=',a[i]); for i: =1 to 12 do begin if (a[i]< 0) then a[i]: =1; if (a[i]> 0) then a[i]: =-5; end; writeln('вот полученный массив'); for i: =1 to 12 do writeln('a[',i,']=',a[i]); writeln(' введите 12 чисел'); for i: =1 to 12 do readln(a[i]); (это доп оценка) end.
Популярно: Информатика
-
прост123222.08.2022 16:34
-
Sdhinkj01.05.2023 11:13
-
5Августина527.06.2021 15:44
-
nusechka4408.09.2022 13:05
-
09Sodlatov08.11.2021 18:35
-
4РИМ18.08.2022 04:13
-
smorodinovegor20.04.2020 18:03
-
вероника0310.07.2022 06:23
-
Mashatry08.10.2020 17:57
-
dolgenco12317.08.2021 20:31