Помогите пожалуйста составить программу правильно!!!!!
Вот условие:
Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных целых чисел и ищет их сумму. Число N вводится с клавиатуры. Разработать для созданной программы не менее трёх тестов и проверить на них правильность работы алгоритма.
На Паскале
Вот условие:
Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных целых чисел и ищет их сумму. Число N вводится с клавиатуры. Разработать для созданной программы не менее трёх тестов и проверить на них правильность работы алгоритма.
На Паскале
More Questions From This User See All
Answers & Comments
var
n, i, s: integer;
a: array[1..1000] of integer;
begin
Write('Vvedite n');
readln(n);
Write('Vvedite n chisel');
for i := 1 to n do read(a[i]);S := 0;for i := 1 to n do S := S + a[i];write('Summa ravna', s)
end.
проверь так?