Найти сумму элементов одномерного массива. элементы массива – случайные числа на отрезке [-5,7].
103
321
Ответы на вопрос:
Program ffff; var a: array[1..10] i,s : integer; begin for i: = 1 to 10 do a[i]: =random(7+5+1)-5; writeln('исх. массив чисел : '); for i: =1 to 10 do write(a[i]: 5); s: =0; for i: =1 to 10 do s: =s+a[i]; writeln('сумма элементов массива ',s); end. с тут несколько ошибок т.к я писал с телефона и не проверял ее. в целом прога верная
Var a: array[1..100] of integer; i,n: integer; k,ar: real; beginreadln(n); randomize; for i: =1 to n do begina[i]: =-5+random(13); write(a[i]: 3); end; writeln; k: =0; ar: =0; for i: =1 to n dok: =k+a[i]; writeln(k); end.
Популярно: Информатика
-
ЛизаКрекер121.08.2020 20:31
-
Comicsans12306.06.2020 13:13
-
asyanikolaeva0p08iun30.09.2020 12:38
-
nikitarin019.09.2020 19:46
-
Tina210312.04.2021 10:38
-
gerasimenkocatia08.03.2020 08:38
-
Aki1Nozomi11.11.2020 14:16
-
lililobanova2010.02.2020 18:21
-
Алина05091317.12.2021 06:15
-
Elina12367131.08.2021 23:57