Question

Составьте программу с описанием действий (алгоритм) «Дан массив из целых чисел. Задано число N-количество элементов в массиве (1<=N<=10000). Далее через пробел записаны N чисел-элементы из массива. Паскаль! Необходимо вывести единственное число

Answer 1

Объяснение:

Вот вроде как

var

a: array[1..10000] of integer;

i, k, n: integer;

begin

readln(n);

for i:=1 to n do

read(a[i]);

writeln;

k:=0;

for i:=2 to n do

if a[i] > a[i-1] then

inc(k);

writeln(k);

end.

Answer 2

Конечно, вот алгоритм для программы на языке Паскаль, который выполняет описанные вами действия:

pascalCopy code
program ArraySum;

var
  N, i, num, sum: integer;

begin
  // Ввод количества элементов в массиве
  readln(N);

  // Инициализация суммы
  sum := 0;

  // Цикл для ввода N чисел и их суммирования
  for i := 1 to N do
  begin
    read(num); // Ввод числа
    sum := sum + num; // Добавление числа к сумме
  end;

  // Вывод суммы
  writeln(sum);
end.

Этот код сначала считывает количество элементов массива N, затем вводит N чисел, суммирует их и выводит полученную сумму.