дан массив а состоящий из 20 элементов отыскать сумму частей в

Дан массив а состоящий из 20 частей отыскать сумму элементов в

Задать свой вопрос
2 ответа

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var a := ArrRandom(20, -50, 50);

 a.Println;

 var b := a.Sum;

 Println('Сумма частей одинакова', b)

end.

Var sumArr, i : Integer;
arr : Array[1..20] of Integer;
Begin
sumArr := 0;
for i := 1 to 20 do begin
sumArr := sumArr + arr[i];
end;
writeln('Sum ', sumArr);
End
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт