Предмет: Информатика,
автор: karjav
дан линейный массив найти сумму линейного массива
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Русский язык,
автор: dbatessova
Предмет: История,
автор: rhaegar355
Предмет: Математика,
автор: aikynatandaev
Предмет: Геометрия,
автор: Бойк
Предмет: Математика,
автор: 200216