МАТРИЦЫ, помогите плиз решить задачу!!! Опции

[Alyaska]

Дана матрица размерностью N*M. Удалить из матрицы все строки, в которых количество простых чисел больше количества четных чисел.
Люди, помогите пожалуйста, буду ооочень вам благодарна!!!

[klem4]

В чем именно проблема ?

Массивы. Матрицы. Типичные задачи.

По поводу определения простое ли число - в поиск, да и в FAQ тоже есть ...
Да и вообще подобные задачи решались, пользуйся поиском, будут конкретные вопросы - подскажем.

[}0pa]

Время позднее уже...поэтому
Могу предложить начало программы. Процедуру удаление строки сама попробуй написать. Если не получится,
то завтра напишу ответ (конечено, после твоих попыток)

Код

uses crt;
const n=3;m=5;
type
tvector = array[1 .. m] of integer;
tmatrix = array[1 .. n] of tvector;
var
  s:array[1..n] of integer;
  i,j,K_ch,K_pr:integer;
  mx:tMatrix;
{------------------------------------------------------------------------------}

function prosto(x:integer):boolean;
var i,s:integer;
begin
for i:= 1 to x do
  begin
   if x mod i=0 then s:=s+1;
   if s=2 then prosto:=true
  end;
end;

begin
ClrScr;
cls;

{Ввод массива}
for i:=1 to n do
  for j:=1 to m do
   readln(mx[i][j]);

{Вывод массива}
for i:=1 to n do
begin
  for j:= 1 to m do
   Write(mx[i][j],' ');
  writeln
end;

K_ch:=0;K_pr:=0;
for i:=1 to n do
  for j:=1 to m do
    begin
     If mx[i][j]mod 2=0 then K_ch:=K_ch+1;
     If Prosto(mx[i][j])=true then k_pr:=K_pr+1;
     If K_Pr>K_ch then удалить i-ю строку;     {здесь подумай сама как удалить строку}
    end; :give_rose:

Writeln('Теперь матрица выглядит так: ');
for i:=1 to n do
begin
  for j:= 1 to m do
   Write(mx[i][j],' ');
  writeln
end;

end.

Хотя, лучше, надо было использовать дин. массивы...=)
Спать хочу

Сообщение отредактировано: }0pa - 28.11.2006 6:11

[volvo]

}0pa, это расценивать, как флейм?

{здесь подумай сама как удалить строку}

Да в этом-то и заключается вопрос автора !!! Тогда у меня вопрос к тебе, если ты в качестве ответа на основной вопрос даешь вот такую рекомендацию, то ЧТО ВООБЩЕ здесь делает твоя программа? Ввод данных? Это есть по ссылке из второго поста...

[}0pa]

В конце концов, это лучше, чем ничего. К тому же, ей предлагается скопировать этот кусок и сосредоточиться на написании процедуры

А чего бы копировать твою, неизвестно как написанную (и вообще проверенную ли) программу, а не оттестированный всеми возможными способами материал из FAQ? В общем, прекращаем флейм ...

Сообщение отредактировано: volvo - 28.11.2006 6:35

[Alyaska]

спасибо вам большое))реально очень помогли)