Регистрация
hazina2
14.10.2021 11:45
Информатика
Есть ответ 👍

Нужна с pascal дан двумерный массив от 1 до 3 ввести элементы массива с клавиатуры и обнулить диагональ матрицы

176
374
Посмотреть ответы 2

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

Anastasia934
Anastasia934
4,7(41 оценок)
Program project2;   {$apptype console} var a: array [1..3,1..3] of integer;     i,n: integer; begin    for i: =1 to 3 do      for n: =1 to 3 do      read(a[i,n]);   for i: =1 to 3 do    for n: =1 to 3 do      if i=n then      a[i,n]: =0;   for i: =1 to 3 do    begin      writeln;     for n: =1 to 3 do      write(a[i,n]: 3);     end;   readln;     readln; end.
andreybalashov
andreybalashov
4,4(27 оценок)

итрарлтриооилилидижтжт

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