Паскаль. Массивы

[Sexy Fox]

Помогите ребенку, люди добрыеееее!!!!!

Это нужно сделать в Паскале с комментариями желательно:

1. Создать массив размером М на N и заполнить его простыми числами т.е. числами, которые делятся только на 1 и на себя.

2. Создать массив G случайных чисел размера M на М. Удалить из него строку номер которой вводится с клавиатуры

ПОЖАЛУЙСТАААААААА!!!!!!!!!!!!!!!!!! !!!

[Stilet]

1.

Было помоему уже. Поиском рули, дитятко.

2.

Прям так и удалить? или все же просто не отображать?

[МаксимNEWProgramm]

1)число 1 простое число ....
Вот заполним матрицу 1-ми
for i:=1 to n do
for j:=1 to m do
a[i,j]:=1;
2)
uses crt;
var g:array[1..100]of byte;i,j,n,k,l,poz:longint;
begin
randomize;
readln(n,m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(5);
readln(Poz);{номер строки которую надо грохнуть!!!}
for i:=1 to n do
if i<>poz then begin writeln;
for j:=1 to n do
write(a[i,j],' ');
end;
readkey;
end.

[Greblin]

число 1 простое число ....

Меня в седьмом классе учили, что 1 не очень простое число :-) Во всяком случае, не думаю, что преподы будут в восторге от матрицы единичек

uses Math;
//подключаем модуль Math, в нём есть функция ceil, которая нам нужна

const M = 30;
         N = 40;

var i, j: integer;
     a: integer;
     mas: array[1..M,1..N] of integer;

function is_simple(n: integer): boolean;
var kor: integer;
     i: integer;
     res: boolean;
begin
kor := ceil(sqrt(n)); 
//вычисляем квадратный корень числа и округляем до ближайшего большего числа
if (n = 1) then
  is_simple := false
else
  if (n = 2) then
    is_simple := true
  else
    begin
    res := true;
    for i := 2 to kor do
    //находим остаток от деления на все числа, меньшие или равные округлённого корня
      if ((n mod i) = 0) then
        begin
        //если поделилось, значит число сотавное
        res := false;
        break;
        //выходим из цикла
        end;
    is_simple := res;
    end;
end;
//функция проверки, является ли число простым

begin
a := 2;
for i := 1 to M do
  for j := 1 to N do
    begin
    while (not is_simple(a)) do
      inc(a);
    //увеличиваем а на единичку, пока оно не странет простым
    mas[i, j] := a;
    //заносим в массив
    inc(a);
    //чтобы не повторялись
    end;
end.

[Greblin]

uses crt;
//если честно, не помню, нужен ли для вызова randomize. попробуй без него

const M = 50;

var G: array[1..M,1..M] of integer;
     i, j: integer;
     cut: integer;

begin
readln(cut);
randomize;
for i := 1 to M do
  for j := 1 to M do
    G[i, j] := random(1000);
//заполняем случайными значениями
for i := 1 to M do
  if i <> cut then
    begin
    for j := 1 to M do
      write(a[i, j], ' ');
    writeln;
    end;   
end;

[puporev]

Предложенный выше способ не удаляет строку из матрицы, а лишь не выводит ее на экран. Если бы с матрицей работать дальше, то этот фокус бы не прошел. Удаляют строку так:

program matrica;
uses crt;
var m,i,j:integer;
    Nstr:integer;
    a:array[1..50,1..50]of integer;
begin
clrscr;
write('m=');readln(m);
write('vvedite Nstr<n: ');readln(Nstr);
randomize;
writeln('Ishodnaia matrica:');
for i:=1 to m do
   begin
      for j:=1 to m do
         begin
           a[i,j]:=random(10);
           write(a[i,j]:3);
         end;
      writeln;
   end;
readln;
{Udalenie stroki}
for j:=1 to m do
for i:=Nstr to m-1 do
   begin
     a[i,j]:=a[i+1,j];
   end;
writeln('Rezulpat:');
for i:=1 to m-1 do
   begin
     for j:=1 to m do
     write(a[i,j]:3);
     writeln;
   end;
readln;
end.
end.

Кстати в стандартном Турбо Паскаль модуля Math нет, зато есть функции Round и Trunc.