GAECHKA
Твоя помощница в решении задач

Найти количество отрицательных элементов в каждом массиве

З массива
А из 10 элементов
В из 15 элементов
С из 20 элементов
Найти количество отрицательных элементов в каждом массиве
Одной программой.
0
вопрос задан

Источник


1 ответ
function Cotr(a:array of integer):integer;
var
  i,c:integer;
begin
  c:=0;
  for i:=low(a) to high(a) do
    if a[i]0 then c:=c+1;
  Cotr:=c;
end;
procedure RandomArrPrint(var a:array of integer);
var
  i:integer;
begin
    for i:=low(a) to high(a) do
      begin
        a[i]:=random(101)-50;
        write(a[i]:5);
      end;
    writeln;
end;
var
  a,b,c:array of integer;
  i:integer;
begin
  randomize;
  writeln('A:');
  setlength(a,10);
  RandomArrPrint(a);
  writeln(Cotr(a));
  writeln('B:');
  setlength(b,15);
  RandomArrPrint(b);
  writeln(Cotr(b));
  writeln('C:');
  setlength(c,20);
  RandomArrPrint(c);
  writeln(Cotr(c));
  readln;
end.