Регистрация
Янрей
17.06.2022 06:58
Информатика
Есть ответ 👍

Построить матрицу b , поменяв местами строки и столбцы в паскале

127
211
Посмотреть ответы 2

Ответы на вопрос:

znaniacom945
znaniacom945
4,6(59 оценок)
Var a,b: array[1..3,1..3] of integer; i,j: integer; begin; randomize; writeln('first matrix'); for i: =1 to 3 do   begin;   writeln;     for j: =1 to 3 do     begin;       a[i,j]: =random(9);       write(a[i,j]: 4);       b[j,i]: =a[i,j];     end;   end; writeln; writeln('final matrix'); for i: =1 to 3 do   begin;   writeln;     for j: =1 to 3 do     write(b[i,j]: 4);   end; end.  
zaharooow
zaharooow
4,8(61 оценок)

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

 

 

Популярно: Информатика