кто владеет информацией, тот владеет миром (н. ротшильд). натан ротшильд, основатель огромной банковской - id810487620221031 от fma060429 31.10.2022 04:07

Question

Информатика: кто владеет информацией, тот владеет миром (н. ротшильд). натан ротшильд, основатель огромной банковской династии ротшильтов, как то сказал эту фразу, которая сразу стала крылатой. своим высказыванием автор хотел затронуть проблему значимости информации в бизнесе. он считал, что тот человек кто первым владеет информацией, имеет огромное преимущество перед другими людьми. тот, кто владеет информацией, может использовать ее в своих целях для решения даже самых больших . определить информационный

fma060429 · Accepted Answer

var

A: array [1..3, 1..5] of Integer;

i, j: Integer;

s: Real;

begin

Randomize;

WriteLn ('Массив:');

for i := 1 to 3 do begin // заполнение массива случайными значениями и вывод для просмотра

for j := 1 to 5 do begin

A [i, j] := Random (22) - 11;

Write (A [i, j], ' ');

end;

Writeln;

end;

for i := 1 to 3 do begin // замена элементов с четной суммой индексов на 555

for j := 1 to 5 do begin

if (i + j) mod 2 = 0 then

A [i, j] := 555;

end;

WriteLn;

WriteLn ('Результат: '); // вывод результата

for i := 1 to 3 do begin

for j := 1 to 5 do begin

Write (A [i, j], ' ');

end;

Writeln;

end;

end.

MOGZ ответил