arbat
?>

в электронной таблицы состоящей из трёх строк 3 столбцов записаны все числа от 1 до 9 так чтобы сумма чисел В каждой строке в каждом столбце и на обеих диагоналях одинаково какое число записано в ячейку А2? ​

Информатика

Ответы

egcuzn86
//Pascal ABC.NET v3.1 сборка 1172

Var
 ar:array of integer;
 n,i,min,mini:integer;
begin
randomize;
min:=2147483647;
 writeln('Введите размерность:');
 readln(n);
 setlength(ar,n);
 writeln('Array:');
  for i:=0 to n-1 do
   begin
    ar[i]:=random(-30,30);
    write(ar[i]:4);
    if min>=ar[i] then
     begin
      min:=ar[i];
      mini:=i;
     end;
   end;
  for i:=0 to mini-1 do
   if ar[i]<0 then ar[i]:=0;
 writeln;
 writeln('Final array:');
  for i:=0 to n-1 do
   write(ar[i]:4);
end.

Пример ввода:
5
Пример вывода:
Array:
  -3 -26  -2  18 -21
Final array:
   0 -26  -2  18 -21

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

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

в электронной таблицы состоящей из трёх строк 3 столбцов записаны все числа от 1 до 9 так чтобы сумма чисел В каждой строке в каждом столбце и на обеих диагоналях одинаково какое число записано в ячейку А2? ​
Ваше имя (никнейм)*
Email*
Комментарий*

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

arsen-ai-ti
edelstar83
Ferrigen
Dmitrii_Shamilevich2019
onboxru16
Margarita
Дементьева-Артем1315
PetrovDrozdov1785
Svatela37
kolesnikovaen
kv135549
Ваган Шутова332
РоманТрофимов2012
pisikak999
troyasport