Ответы на вопрос:
program n1; uses crt; const n=20; var m: array[1..n] of integer; i,a,s,b: integer; beginclrscr; randomize; for i: =1 to n do begin m[i]: =random(50); write(m[i]: 3); end; writeln; writeln('введите a и b'); readln(a,b); for i: =a to b do s: =s+m[i]; writeln('сумма равна ',s); readlnend.
Популярно: Информатика
-
Teacher99129.09.2020 01:46
-
alexeremka09.02.2023 18:25
-
llopatniseva08.07.2020 10:37
-
Ksu57621.01.2022 17:42
-
Baldex06.07.2022 07:49
-
rop1234123429.09.2022 03:49
-
nk969601.03.2023 21:09
-
fedivvasil1913.05.2022 03:58
-
dikoshadobro108.12.2021 11:26
-
22844622.11.2020 19:34