Question

Найти сумму n однозначных чисел введенных с клавиатуры паскаль

Answer 1

Program bog(input, output); type vector=array[1..100] of integer; var n, s, i:integer; z:vector; begin read (n); for I:=1 to n do read (z[i]); s:=0; for I:=1 to n do s:=s+z[i]; writeln (s); end.

Answer 2

Для нахождения суммы n однозначных чисел, введенных с клавиатуры в Pascal, можно использовать следующий код:

program SumOfNumbers;
var
  n, number, sum: integer;
begin
  sum := 0;
  writeln('Введите количество чисел:');
  readln(n);
  writeln('Введите числа:');
  for var i := 1 to n do
  begin
    readln(number);
    sum := sum + number;
  end;
  writeln('Сумма чисел:', sum);
end.

В этом коде мы объявляем переменные `n`, `number` и `sum`. Переменная `n` будет хранить количество чисел, которые мы хотим сложить. Переменная `number` будет использоваться для ввода чисел с клавиатуры, а переменная `sum` будет хранить сумму чисел.

Затем мы выводим сообщение, запрашивающее количество чисел, которые мы хотим сложить. После этого мы вводим числа с клавиатуры с помощью цикла `for`. Внутри цикла мы считываем число с помощью `readln` и добавляем его к сумме с помощью оператора `+`.

Наконец, мы выводим сумму чисел на экран с помощью `writeln`.

Пример работы программы:

Введите количество чисел:
5
Введите числа:
1
2
3
4
5
Сумма чисел: 15

В этом примере мы ввели 5 чисел (от 1 до 5) и получили сумму 15.

Источники: -(https://www.you.com)