fork download
copy 
  1. Program L;
  2.   Const
  3.     n=3;
  4.     m=4;
  5.   Type 
  6.     matr=array[1..n,1..m] of real;
  7.   Var
  8.     a,b:matr;
  9.     i,j: integer;
  10.     bmin,bmax:real;
  11.   Begin
  12.     randomize;
  13.     writeln('Исходная матрица В: ');
  14.     for i:=1 to n do 
  15.       begin
  16.         for j:=1 to m do
  17.           begin
  18.             b[i,j]:=random(31)-15;
  19.             write(b[i,j]:3:0,' ':3);
  20.           end;
  21.           writeln;
  22.       end;
  23.       bmax:=b[1,1];
  24.       for i:=1 to n do
  25.         for j:=1 to m do
  26.           begin
  27.             if b[i,j]>bmax
  28.               then
  29.                 bmax:=b[i,j];
  30.           end;
  31.           writeln('Max – ',bmax:0:0);
  32.       bmin:=b[1,1];
  33.       for i:=1 to n do
  34.         for j:=1 to m do
  35.           begin
  36.             if b[i,j]<bmin
  37.               then
  38.                 bmin:=b[i,j];
  39.           end;
  40.           writeln('Min – ',bmin:0:0);
  41.       writeln('Матрица А:');
  42.       for i:=1 to n do
  43.         begin
  44.           for j:=1 to m do
  45.             begin
  46.               a[i,j]:=(2*b[i,j]+bmin)/(bmax);
  47.               write(a[i,j]:3:5,' ':3);
  48.             end;
  49.             writeln;
  50.         end;
  51.   End.
  52.  
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Исходная матрица В: 
 -5    13    15     2   
  1    10     9     1   
-14    -2    12     4   
Max – 15
Min – -14
Матрица А:
-1.60000   0.80000   1.06667   -0.66667   
-0.80000   0.40000   0.26667   -0.80000   
-2.80000   -1.20000   0.66667   -0.40000
https://ideone.com/GGIg4y
language:
Pascal (fpc 3.0.4)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!