Время позднее уже...поэтому
Могу предложить начало программы. Процедуру удаление строки сама попробуй написать. Если не получится,
то завтра напишу ответ (конечено, после твоих попыток)
Код
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.
Хотя, лучше, надо было использовать дин. массивы...=)
Спать хочу