Паскаль найти сумму первых пяти и последних пяти и сравнить сумму элементов массива
265
302
Ответы на вопрос:
Если будут вопросы или что-то нужно изменить пиши. const n=10; var a: array [1..n] of integer; i, s1,s2: integer; begin for i : = 1 to n do begin a[i] : = random(100); write(a[i],' '); end; for i: =1 to n do if i< (n/2) then s1: =s1+a[i] else s2: =s2+a[i]; writeln; if s1< > s2 then if s1< s2 then write (s1,'< ',s2) else write (s1,'> ',s2) else write (s1,'=',s2) end.
Научно-практическая дисциплина,
изучающий трудовые процессы с целью создания оптимальных условий труда его росту производительности.
Популярно: Информатика
-
masharogka07.12.2021 23:14
-
Taniusha0221.04.2020 09:23
-
elizaveta0807199925.11.2020 01:36
-
cacalohgf19.09.2021 12:28
-
2006otvet17.06.2022 17:07
-
Adonis1232104.07.2021 22:15
-
vladaplakhotya28.03.2023 20:28
-
Artemis4567765421.10.2021 10:30
-
2806tonia200521.10.2021 22:22
-
UraR110.10.2021 23:29