Вмассиве a из 25 целых элементов из диапазона [-10; 7] вычислить сумму элементов, которые находятся после максимального.
260
341
Ответы на вопрос:
Uses crt; var a: array [1..25] of integer; i,t,j,max,s: integer; begin max: =-10; s: =0; t: =0; j: =0; for i: =1 to 25 do begin a[i]: =random(18)-10; if a[i]> max then begin max: =a[i]; j: =i; end; end; for i: =1 to 25 do begin t: =t+1; write(' a[',i: 2,']=',a[i]: 2); if t=5 then begin writeln; t: =0; end; end; j: =j+1; for i: =j to 25 do s: =s+a[i]; write(s); end.
Популярно: Информатика
-
pro100skill13226.05.2023 17:40
-
эльха131.03.2020 21:37
-
изу19714.02.2023 16:19
-
emmiemgrowen235621.11.2020 19:57
-
ddfgdfgdfg08.07.2022 22:36
-
misterkorolev026.01.2022 14:02
-
кавайнаятянка28.01.2023 00:36
-
steep610.05.2020 18:44
-
ZevsGromov22.11.2021 12:21
-
elenaandreeva3406.10.2022 20:52