Задача 4. Дан одномерный массив. С клавиатуры вводится число

1. Постановка задачи.

Дан одномерный массив. С клавиатуры вводится число. Найти сумму всех элементов массива, значения которых больше числа, введенного с клавиатуры.

2. Математическая модель.

Если a[i] <a[k] то a[k]=a[i], a[i]=a[k]

3. Блок-схема

4. Список идентификаторов.

Имя	Смысл	Тип
A	Элементы массива	Integer
N	Кол-во элементов массива	Integer
I	Счетчик	Integer
Sum	Сумма элементов > s	Integer
S	Число, > которого будут суммироваться эл-ты	Integer

5. Код программы.

program z4;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes, Math;

var a:array of integer;

i, n, s, sum:integer;

begin

writeln ('Введите кол-во эл-тов массива');

readln (n);

writeln ('Введите эл-ты массива');

setlength (a, n);

for i:= 1 to n do

read (a[i]);

writeln ('Введите число, > которого будут суммироваться эл-ты');

readln (s);

for i:= 1 to n do

if a[i] > s then

sum:=sum+a[i];

writeln (sum);

readln ();

end.

6. Результаты выполнения программы.