Я в Паскале полный ноль, а завтра сдавать лабораторную. Помогите пожалуйста!

[Ryfat]

Я в Паскале полный ноль, а завтра сдавать лабораторную. Помогите пожалуйста!

Язык Паскаль
Задача...
Дана действительная матрица размерами nxm, в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на её наибольший по модулю элемент..

за ранее огромное спс..

 

[AlexZir]

Правильность проверьте сами, нет среды под рукой.

var a: array[1..100,1..100] of real;
     b: array[1..100,1..100] of real;
     n,m,max,i,j,nn,nm:integer;
begin
write('Введите размерность матрицы (n,m)'); readln(n, m);
{заполняем матрицу значениями}
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
{находим максимальный по модулю элемент матрицы}
max:=abs(a[1,1]);
nn:=1;
nm:=1;
for i:=1 to m do
for j:=1 to n do
if abs(a[i,j])>max then begin max:=abs(a[i,j]); nn:=j; nm:=i; end;
{формируем новый массив}
for i:=1 to m do begin
for j:=1 to n do begin
b[i,j]:=a[i,j]/a[nn,nm];
write(b[i,j]:4:2); end;
writeln; end;
readln
end.

Исправил ошибку, так как невнимательно прочитал задание, извиняюсь .

 

[Ryfat]

спс..огромное!!!

 

[motya]

помогите.....!!!!составить программу в паскале вычеркивающую из слова Х буквы встречающиеся при написании ровно 3 раза

 

[Vladimir_S]

помогите.....!!!!составить программу в паскале вычеркивающую из слова Х буквы встречающиеся при написании ровно 3 раза

Вообще-то, как мне помнится, в этом слове всего 3 буквы, и все разные :tehnari_ru_109:.
Ну ладно. Вот программа. Считаем, что слово Х состоит только из строчных латинских букв, причем смысловой нагрузки оно не несет. Тогда, например, так:

CONST
 Lng=20; {Word X length}
VAR
 X:Array[1..Lng] of Char;
 N:Array[1..Lng] of Byte;
 i,j:Integer;
BEGIN
 Randomize;
 For i:=1 to Lng do
  begin
   X[i]:=Chr(97+Random(26));
   Write(X[i]);
   N[i]:=0;
  end;
 WriteLn;

 For i:=1 to Lng do
  For j:=1 to Lng do
   If X[i]=X[j] then Inc(N[i]);

 For i:=1 to Lng do
  Write(N[i]:3);
 WriteLn;

 For i:=1 to Lng do
  If N[i]<>3 then Write(X[i]);
 WriteLn;

 ReadLn;
END.