Найдите ошибку в задаче и исправьте. В ответе выписать исправный код.
Найти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры.

Program summa;
Var a: array[1..100] of string;
i, n: integer;
s: integer;
Begin
Write (‘n=’); Readln (n);
For i:=n to 1 do
begin
write (‘введите число’);
readln (a[i]);
s:=s+a[i];
end;
writeln(‘сумма элементов равна ‘,s);
End.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.