Ответы
Ответ дал:
0
Program Task;
Const N = 5;
Var a: Array[1..N] of Integer;
i, sum: Integer;
Begin
WriteLn('Введите ', N, ' целых чисел через пробел');
For i := 1 To N Do
Begin
Read(a[i]);
sum := sum + a[i];
End;
WriteLn('Сумма элементов массива: ', sum);
ReadLn;
End.
Const N = 5;
Var a: Array[1..N] of Integer;
i, sum: Integer;
Begin
WriteLn('Введите ', N, ' целых чисел через пробел');
For i := 1 To N Do
Begin
Read(a[i]);
sum := sum + a[i];
End;
WriteLn('Сумма элементов массива: ', sum);
ReadLn;
End.
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад