kirillboytsov403
?>

Вычислить произведение конечного ряда P= 13 π k+10/In(12-k) k=-15В

Информатика

Ответы

bellaalya13862
Const
  M = 10; // Количество строк
  N = 10; // Количество столбцов

var
  arr: array [1..M, 1..N] of integer;
  i,j,z,min,temp : integer;
begin
  for j := 1 to M do
    for i := 1 to N do
      arr[j, i] := random(99);
  
  writeln('Исходный массив:');
  for j := 1 to M do
  begin
    for i := 1 to N do
      write(arr[j, i] : 2, ' ');
    writeln;
  end;

  for j := 1 to M do
  begin
    for i := 1 to N - 1 do
    begin
      min := i;
   
      for z := i + 1 to N do
        if arr[j, z] < arr[j, min] then
          min := z;
   
      temp := arr[j, min];
      arr[j, min] := arr[j, i];
      arr[j, i] := temp;
    end;
  end;
  
  writeln;
  writeln('Отсортированный массив');
  for j := 1 to M do
  begin
    for i := 1 to N do
      write(arr[j, i] : 2, ' ');
    writeln;
  end;
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вычислить произведение конечного ряда P= 13 π k+10/In(12-k) k=-15В
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

kmalahov
Konstantinovna Ilyukhin1618
magazintrofey
sve707ta
Dmitrii sergei463
Yevsyukov1697
cmdkotelniki
Alekseevich1012
srgymakarov
julichca68
koochma
fakyou170
Суховодова599
Norov
barabanoveugeny