Программа
{
покажись;
в_точку ( -125 ,-100 );
опусти_перо;
вперед ( 100 );
вправо ( 90 );
вперед ( 50 );
вправо ( 90 );
вперед ( 100 );
подними_перо;
в_точку ( -55 ,-50 );
опусти_перо;
вперед ( 50 );
влево ( 90 );
вперед ( 27 );
влево ( 90 );
вперед ( 50 );
влево ( 90 );
вперед ( 27 );
подними_перо;
в_точку ( -10 ,-100 );
опусти_перо;
вправо ( 105 );
вперед ( 52 );
вправо ( 150 );
вперед ( 52 );
вправо ( 15 );
подними_перо;
в_точку ( 35 ,-50 );
опусти_перо;
вперед ( 50 );
влево ( 150 );
вперед ( 54 );
вправо ( 150 );
вперед ( 50 );
подними_перо;
в_точку ( 80 ,-50 );
опусти_перо;
вперед ( 50 );
влево ( 180 );
вперед ( 25 );
вправо ( 90 );
вперед ( 27 );
влево ( 90 );
вперед ( 25 );
влево ( 180 );
вперед ( 50 );
подними_перо;
в_точку ( 125 ,-100 );
опусти_перо;
вправо ( 195 );
вперед ( 52 );
вправо ( 150 );
вперед ( 52 );
вправо ( 15 );
влево ( 90 );
подними_перо;
в_точку ( 125 ,-75 );
опусти_перо;
вперед ( 27 );
подними_перо;
в_точку ( 175 ,-100 );
}
program arraysum;
const
D = 30; // размерность массива, можно менять на любое другое
var
B: array [1..D] of Integer;
i, s, c, A: Integer;
begin
Write ('A = ');
ReadLn (A);
Write ('Введите массив из 30 элементов:');
for i := 1 to D do begin
ReadLn (B [i]);
end;
// Randomize; // это заполнение случайными числами можно для отладки раскоментарить
// for i := 1 to D do begin
// B [i] := Random (21) - 5;
// Write (B [i] :3, ' ');
// end;
s := 0;
c := 0;
for i := 1 to D do begin
if B [i] < 0 then
s := s + B [i];
if (B [i] > 0) and (B [i] < A) then
Inc (c);
end;
WriteLn;
WriteLn ('Сумма отрицательных чисел =', s);
WriteLn ('Количество положительных меньших ', A, ' = ', c);
ReadLn;
end.