profile
Размещено 5 лет назад по предмету Информатика от Strannnnnnnnik

Дан массив m*n. Определить есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов. Только через паскаль ABC) СПАСИБО!!!

  1. Ответ на вопрос
    Ответ на вопрос дан m1a9s9h6a
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 uses crt; const nmax=20; var a:array[1..nmax,1..nmax] of integer;     m,n,i,j,kp,ko:byte;     f:boolean; begin clrscr; randomize; repeat write('Количество строк до ',nmax,' n='); readln(n); until n in [1..nmax]; repeat write('Количество столбцов до ',nmax,' m='); readln(m); until m in [1..nmax]; writeln('Исходная матрица:'); for i:=1 to n do  begin    for j:=1 to m do     begin      a[i,j]:=random(20)-9;      write(a[i,j]:4);     end;    writeln;  end; writeln; f:=false; j:=1; while(j<=m)and not f do  begin   kp:=0;ko:=0;   for i:=1 to n do   if a[i,j]>0 then inc(kp)   else if a[i,j]<0 then inc(ko);   if ko=kp then f:=true   else inc(j);  end; writeln('Есть ли в матрице столбец с равным числом'); writeln('положительных и отрицательных элементов?'); write(f); readln end.

     

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.