Подсчитать сумму элементов массива, меньших, чем предыдущие - Pascal ABC
Формулировка задачи:
Составить поставку,алгоритм и в паскале программу подсчитывающую сумму меньших чем предыдущие элементов массива S ИЗ 12 чисел.Значения элементов массива ввести с клавиатуры.я написал программу,но почему то в строке END выдает ошибку.Почему?
Решение задачи: «Подсчитать сумму элементов массива, меньших, чем предыдущие»
textual
Листинг программы
uses crt;
var S:array [1..13] of integer;
sum,i:integer;
begin
write('Введите 13 чисел ');
Sum:=0;
for i:=1 to 13 do
begin
readln(S[i]);
if(i>1)and(S[i]<S[i-1]) then sum:=sum+s[i];
end;
write('Sum=',Sum);
readkey;
end.
Объяснение кода листинга программы
- В начале кода используется библиотека crt, которая предоставляет функции для работы с консолью.
- Переменная S представляет собой массив из 13 элементов типа integer.
- Переменная sum и i также являются целочисленными типами.
- С помощью функции write пользователь вводит 13 чисел для массива S.
- Затем переменная sum инициализируется значением 0.
- С помощью цикла for происходит итерация от 1 до 13 (так как массив S имеет 13 элементов).
- Внутри цикла переменная i принимает значения от 1 до 13.
- Если текущий элемент (S[i]) меньше предыдущего элемента (S[i-1]) и i больше 1, то к переменной sum добавляется значение S[i].
- После завершения цикла переменная sum выводится на экран вместе с сообщением
Sum=. - Функция readkey используется для чтения символа с клавиатуры, чтобы пользователь мог нажать Enter после просмотра результата.