Подсчитать сумму 10 произвольно введенных чисел. Подробно расписать чтоб было 5. Решается моя оценка. буду благодарен.

Var s,i,a:integer; //объявляем необходимые переменные
begin
s:=0; //изначально сумма равна 0
write(Введите 10 чисел через enter ); //запрос 10-ти чисел
for i:=1 to 10 do begin //с помощью цикла вводим числа
readln(a);
s:=s+a; // вычисляем сумму(смысл цикла уж не буду расписывать)
end;
write(Сумма 10-ти чисел  = ,s); //выводим на экран искомое значение
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.