ПАМАГИИТЕ(((000Составить программу которая будет выводить ** экран массив размером 5*5...

Question

ПАМАГИИТЕ(((000Составить программу которая будет выводить на экран массив размером 5*5 состоящий из рандомных чисел (информатика pascal) лдд

Comments

памажем))))

Answer 1

Const
    handsfree = true;
n=5;
var
    a: array[1..5, 1..5] of real;
    max, min, temp: real;
    sum, product, harmonic: real;
    i, j, m, n, k: integer;

begin
    writeln('Данные матрицы:');
    for i := 1 to n do
    begin
        for j := 1 to n do
            if handsfree then begin
                a[i, j] := random(100) - 50;
                write(a[i, j]:4, ' ')
            end
            else
                read(a[i, j]);
        writeln;
    end;
end.