Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Заполните два массива N [1..15] и M [1..15] случайными числами в диапозоне от -15 до 20ю Подсчитайте в каждом ммассиве количество положительных и отрицательных значений. Программа должна быть на Pascale, желательно на завтра.

Ответ оставил Гость

Program pr;
uses crt;
Var N,M:array[1..15] of integer;
    i,kNp,kMp,kNo,kMo:integer;
Begin
kNp:=0;
kMp:=0;
kNo:=0;
kMo:=0;
Writeln(mas(N));
for i:=1 to 15 do Begin N[i]:=random(36)-15; Write(N[i],;) end;
Writeln;
Writeln(mas(M));
for i:=1 to 15 do Begin M[i]:=random(36)-15; Write(M[i],;) end;

for i:=1 to 15 do Begin
                  if N[i]>=0 then kNp:=kNp+1
                             else kNo:=kNo+1;
                  if M[i]>=0 then kMp:=kMp+1
                             else kMo:=kMo+1;
                  end;
Writeln;
Writeln(Кол-во положительных массива N=,kNp);
Writeln(Кол-во отрицательных массива N=,kNo);
Writeln(Кол-во положительных массива M=,kMp);
Writeln(Кол-во отрицательных массива M=,kMo);
readln;
end.