Массив из 8 элементов задан случайными числами. Найти сумму всех элементов массива и выведите значение на экран. Выведите на экран все элементы массива в столбик.
Lera246hh
1
22.12.2020 12:53
3
Другие вопросы по теме Информатика
cnmcjmxy
23.07.2019 08:50
Яхшибой
23.06.2019 05:50
Aleks19102007
23.06.2019 05:50
Nastykaramova
23.06.2019 05:50
Лариса505
14.12.2019 16:36
стас488
14.12.2019 16:37
nova4ka
14.12.2019 16:42
goodblood197
09.08.2019 17:40
Moon133
09.08.2019 17:40
Популярные вопросы
- Выбирайте правильное заявление! В изогнутом зеркале кажущееся изображение формируется...
3 - Для нагревания на спиртовке 180 г воды от 18 до 96...
2 - Обчисли площу фігури, обмеженої лініями y=5+sinx,y=0,x=2π,x=5π/2терміново, будь...
2 - Напишите глаголы в простом времени To teach - to hang - to strike – To lie -...
1 - Периметр квадрата 25 см . Найди его сторону...
1 - Назовите плюсы и минусы в новой поправке в конституцию к статье 95...
3 - Решите графически систему уравнений...
1 - Определите, на каких рисунках функции возрастают. 1) А и В 2) Б и В 3) Б 4)...
3 - Написать сочинение-рассуждение Социальная структура России глазами иностранцев...
3 - Какой из предложенных минералов является редким?...
2
Program massiv;
Const n=100;
Var a:array[1..n] of integer;
i,s:integer;
Begin
s:=0;
For i:=1 to n do
Begin
a[i]:=i*i;
Write(a[i]:6);
s:=s+a[i];
end;
WriteLn;
Write('Сумма=',s);
end.
если бы тут был коллаб...