Предмет: Информатика,
автор: Sp1keazyYT
Здравствуйте. Задача: написать программу на Pascal ABC Net, суть которой заключается в том, что человек для начала должен ввести n чисел, после чего программа должна их суммировать и выдать результат. ДАЮ 100 БАЛЛОВ!
KOMMYHU1CT:
я вот написал программу которая считывает определнное коичество чисел
var n, sum, x,k: integer;
begin
sum:=0;
for k:=1 to n do
begin
readln(x);
sum:=sum+x;
end;
end.
begin
sum:=0;
for k:=1 to n do
begin
readln(x);
sum:=sum+x;
end;
end.
тоесть ты говоришь сколько чисел вводить
например 3
и ты потом вводишь эти три числа
а стой программа не так
var n, sum, x,k: integer;
begin
sum:=0;
for k:=1 to n do
begin
readln(x);
sum:=sum+x;
end;
end.
begin
sum:=0;
for k:=1 to n do
begin
readln(x);
sum:=sum+x;
end;
end.
нееет не читай это
вот теперь она правильная и будет работать
var n, sum, x,k: integer;
begin
sum:=0;
readln(n);
for k:=1 to n do
begin
readln(x);
sum:=sum+x;
end;
end.
begin
sum:=0;
readln(n);
for k:=1 to n do
begin
readln(x);
sum:=sum+x;
end;
end.
Ответы
Автор ответа:
0
// PascalABC.NET 3.3
begin
var n:=ReadInteger('n =');
var a:=ReadSeqInteger('Введите '+n+' чисел: ',n);
writeln('s = ',a.Sum);
end.
Пример:n = 5
Введите 5 чисел: 2 7 4 3 5
s = 21
begin
var n:=ReadInteger('n =');
var a:=ReadSeqInteger('Введите '+n+' чисел: ',n);
writeln('s = ',a.Sum);
end.
Пример:n = 5
Введите 5 чисел: 2 7 4 3 5
s = 21
Похожие вопросы
Предмет: Английский язык,
автор: gallagher15
Предмет: Математика,
автор: Аноним
Предмет: Окружающий мир,
автор: zayniminavgmailcom
Предмет: География,
автор: sofyavolosenko
Предмет: География,
автор: Милена130146