vapebroshop
?>

Який з наведених операторів в програмі для визначення суми двадцяти елементів послідовності чисел 2, 5; 3, 0; 3, 5; 4, 5... буде першим *​

Информатика

Ответы

tatyanakras911248
Program exp3;
uses crt;
const
  m = 5;
  n = 3;
type
  matr = array [1 .. m, 1 .. n] of integer;
var
  A: matr;
  b, i, j, k: integer;
begin
  clrscr;
  randomize;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      A[i, j] := random(101);
    end;
  end;
  k := n div 2;
  for j := 1 to k do
  begin
    for i := 1 to m do
    begin
      b := A[i, j];
      A[i, j] := A[i, n - j + 1];
      A[i, n - j + 1] := b;
    end;
  end;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      write(A[i,j]: 5) ;
    end;
    writeln;
  end;
    readln;
end.

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

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

Який з наведених операторів в програмі для визначення суми двадцяти елементів послідовності чисел 2, 5; 3, 0; 3, 5; 4, 5... буде першим *​
Ваше имя (никнейм)*
Email*
Комментарий*

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

yulyashka2142
veraplucnika
Девяткина_Арсений
sky-elena712558
sve-lysenko
Алексей Ксения
anytkaakk
Светлана константин
petria742
sadkofamily61
АлександрАлександровна
kettikis
Aleksandr-Andrei
Valentina1520
Vgubushkin