Определите число и порядковые номера грузов массой более 10 т - Pascal ABC

Формулировка задачи:

Дан массив Z(15) масс грузов до 30 т. 1) Определите число и порядковые номера грузов массой более 10 т. 2) Определите их общую массу. 3) Сформировать новый массив B (N) из грузов массой меньшей или равной 10 т. 4) Определите максимальную массу груза и его порядковый номер в массиве B

Решение задачи: «Определите число и порядковые номера грузов массой более 10 т»

Листинг программы

var z,b:array [1..15] of integer;
    k,l,sum,i,n:integer;
begin
for i:=1 to 15 do begin
write('Введите значение ',i,'-го элемента: '); readln(z[i]);
if z[i]<=10 then begin
n:=n+1; b[n]:=z[i]; sum:=sum+z[i]; end;
end;
writeln('Грузы больше 10 и их номера:');
for i:=1 to 15 do if z[i]>10 then write(z[i],'(№',i,') ');
writeln('Их общая масса = ',sum);
writeln; writeln('Массив B с элементами<=10:');
for i:=1 to n do write(b[i],' ');
writeln; l:=b[1];
for i:=2 to n do if b[i]>l then begin l:=b[i]; k:=i; end;
writeln('Максимально большой элемент массива B = ',l,'(№',k,')');
end.

Объяснение кода листинга программы

Создается переменная z типа array[1..15] of integer, которая будет хранить значения введенных грузов.
Создается переменная b типа array[1..15] of integer, которая будет хранить отсортированный массив грузов массой более 10 тонн.
Создается переменная n, которая будет хранить количество грузов массой более 10 тонн.
Создается переменная sum, которая будет хранить общую массу всех грузов.
Запускается цикл for, который проходит по каждому элементу массива z от 1 до 15.
Внутри цикла запрашивается значение каждого элемента и записывается в соответствующую ячейку массива z.
Если значение элемента больше или равно 10, то увеличивается счетчик n и записывается значение элемента в массив b. Также общая масса грузов увеличивается на значение текущего элемента.
После завершения цикла выводится сообщение о том, что грузы больше 10 и их номера.
Выводится сообщение о том, что максимальное значение элемента массива b равно l, а его номер равен k.