Помогите решить последнюю задачу, на двумерный массив

[Andrux]

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

[alex_fcsm]

uses crt;
const n=5;
var a,b:array[1..n,1..n] of real;
    i,j:integer;
    max:real;
    
function Find(x:integer):real;
var p,l:integer;
begin
l:=1;
for  p:=2 to n do
 if b[x,p]>b[x,l] then l:=p;
 Find:=b[x,l];
end;
    
    
begin
  for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10);
     write(a[i,j]:3:0);
    end;
    writeln;
  end;
  writeln('===========================');
    for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     b[i,j]:=random(100);
     write(b[i,j]:3:0);
    end;
    writeln;
  end;
  writeln('=========================');
for i:=1 to n do
 begin
  max:=Find(i);
 for j:=1 to n do
  a[i,j]:=a[i,j]*max;
 end;
   for i:=1 to n do
  begin
   for j:=1 to n do
     write(a[i,j]:5:0);
    writeln;
  end;

    
end.

[Impario]

Сообщение от Andrux

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

че тут непонятно Делаешь 2 квадратные матрицы порядка n так как в квадратной матрице кол-во строк и столбцов равны.
2 3 4 5 6
3 4 5 6 7
4 5 6 7 8 5 строк 5 столбццов с каждой строки берем 1 элемент и
5 6 7 8 9 кмнажаем его с соответствующим элементом
6 7 8 9 10 2-ой матрицы. Просто тупо делаем 2-ую матрицу такова же порядка!!!

[alex_fcsm]

Сообщение от Impario

че тут непонятно Делаешь 2 квадратные матрицы порядка n так как в квадратной матрице кол-во строк и столбцов равны.
2 3 4 5 6
3 4 5 6 7
4 5 6 7 8 5 строк 5 столбццов с каждой строки берем 1 элемент и
5 6 7 8 9 кмнажаем его с соответствующим элементом
6 7 8 9 10 2-ой матрицы. Просто тупо делаем 2-ую матрицу такова же порядка!!!

В строке второй матрицы ищешь максимум и умножаешь на него все элементы в соответствующей строке первой матрицы

[Andrux]

спасибо )) все задачи ОК. спасибо еще раз!
alex_fcsm

[Andrux]

или так лучше будет, как считаешь alex_fcsm
Или разницы нету...

program anz679a;
uses
    crt;
const
    n = 5;
type
    Tarr = array[1..n, 1..n] of real;
var
    a, b  : Tarr;
{==========================================}
procedure insertData(var x : Tarr);
var
    i, j : byte;
begin
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            x[i, j] := random(30) / PI;
        end;
    end;
end;
{==========================================}
procedure printData(x : Tarr);
var
    i, j : byte;
begin
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            write(x[i, j]:10:0);
        end;
        writeln;
    end;
end;
{==========================================}
procedure multy(var x, y : Tarr);
var
    i, j, k : byte;
    max : real;
begin
    for i := 1 to n do
    begin
        max := y[i, 1];
        for k := 1 to n do
        begin
            if(y[i, k] > max) then
            begin
                max := y[i, k];
            end;
        end;
        for j := 1 to n do
        begin
            x[i, j] := x[i, j] * max;
        end;
    end;
end;
{==========================================}
begin
    clrscr;

    textColor(red);
    insertData(a);
    insertData(b);
    writeln('1 matrica imeet vid: ');
    printData(a);
    textColor(green);
    writeln;
    writeln('2 matirca imeet vid: ');
    printData(b);
    textColor(yellow);
    multy(a, b);
    writeln;
    writeln('1 matrica posle umnozheniya priobrela vid: ');
    printData(a);

    readln;
end.

[alex_fcsm]

Разницы особой нет, но при выводе чисел пиши тогда вот так

write(x[i, j]:10:4);

, а то у тебя только целые части выводятся

[alex_fcsm]

Почитайте здесь рискуете нарваться на бан

const x='aba';
var s:string;
    i,n:integer;
    
begin
readln(s);
n:=0;
repeat
i:=pos(x,s);
if i<>0 then begin
              n:=n+1;
              delete(s,i,3);
             end;
until i=0;
writeln(n);
end.