<em>Відповідь:</em>
<em><u>Компьютеры и информационные системы прочно вошли в нашу жизнь и гораздо облегчили ее. Большинство людей, особенно молодежи не смогут представить свою жизнь без этой чудо машины. Еще совсем недавно, наличие компьютера в семье считалось роскошью. В настоящее время все настолько изменилось, что нет ничего удивительного, что в каждой ячейке общества присутствует несколько вычислительных устройств.
</u></em>
<em><u>Что может быть общего между профессией учителя и бухгалтера, адвоката и дизайнера, сотрудника полиции и кассира, врача и звукорежиссера? Изначально, кажется, что эти профессии не имеют ничего общего, так как речь идет о совершенно разных профессиях. Если вспомнить, что мы живем в век глобальной информатизации, то все эти профессии объединяет то, что они используют компьютер.
</u></em>
<em><u>Что же делает одно и то же устройство очень важным для выполнения столь большого количества разных работ? Таким вопросом мы задались и постараемся ответить на него в рамках нашего проекта.
</u></em>
<em><u>Объект исследования: профессии, использующие компьютер в своей деятельности. </u></em>
<em><u>Предмет исследования: для чего и как именно взрослые используют компьютер в своей профессии.
</u></em>
<em><u>Цель: Разработать и создать видео ролик «Компьютер и профессия». Выяснить, как именно компьютер помогает представителям различных профессий.</u></em>
<em><u>Пояснення:</u></em>
<u />
Если в число, то будет 154
Const
n = 10;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
begin
Randomize;
Writeln('Исходная матрица');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
for i:=1 to n do a[i,i]:=0;
Writeln('Результирующая матрица');
for i := 1 to n do
begin
for j := 1 to n do Write(a[i, j]:4);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходная матрица
-19 15 42 44 32 41 -11 -21 14 -29
33 -8 -21 -33 -38 28 21 43 39 -46
-1 33 13 23 -38 32 -25 -26 43 41
7 6 39 14 48 37 -3 -3 -2 -41
-26 40 -38 -24 16 43 -17 3 7 7
37 20 17 44 28 -2 -49 -32 32 -50
16 -35 -14 23 14 -23 3 15 -31 -24
-19 -26 -5 30 30 9 20 -13 -43 -30
-2 22 17 -15 -46 38 39 46 37 -1
36 -22 15 -2 -7 -41 3 -10 12 -12
Результирующая матрица
0 15 42 44 32 41 -11 -21 14 -29
33 0 -21 -33 -38 28 21 43 39 -46
-1 33 0 23 -38 32 -25 -26 43 41
7 6 39 0 48 37 -3 -3 -2 -41
-26 40 -38 -24 0 43 -17 3 7 7
37 20 17 44 28 0 -49 -32 32 -50
16 -35 -14 23 14 -23 0 15 -31 -24
-19 -26 -5 30 30 9 20 0 -43 -30
-2 22 17 -15 -46 38 39 46 0 -1
36 -22 15 -2 -7 -41 3 -10 12 0
ЭТАПРАЗРАБОТКИ КОМПЬЮТЕРНОЙ ПРОГРАММЫ В КОТОРОЙ УСТРАНЯЮТ ОШИБКИ