Дан массив целых чисел размерностью n (n=16), отыскать сумму первых пяти

Дан массив целых чисел размерностью n (n=16), найти сумму первых 5 частей массива
Сделать в Паскале

Задать свой вопрос
2 ответа
PascalABC.NET 3.4

begin
  var a:=ArrRandom(16,-99,99); a.Println;
  Writeln('Сумма первых 5 значений ',a[:5].Sum)
end.

program mass;

const n = 16;

var A: array [1..n] of integer;

i, sum : integer;

begin

writeln ('Vash massiv: ');

for i:=0 to n do A[i]:= random(10);

for i:=0 to n do write(A[i], ' ');

sum:=0;

for i:=0 to 5 do sum:=sum + a[i];

writeln();

writeln('s = ', sum);

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт