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. Результаты выполнения программы.