Нужна . нужно заполнить таблицу работы со словарем (информатика 3 класс есть термины: виды отношений, отношения противоположность, отношения часть-целое, отношения причина-следствие. нужно написать что это значит.

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

1. uses crt; const n=5; var i,j,ans: integer; a: array[1..n,1..n] of integer; begin randomize; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(5,10); write(a[i,j],' '); end; writeln(); end; for i: =1 to n do begin ans: =0; for j: =1 to n do begin if a[i,j]> 7 then ans: =ans+1; end; writeln('in ',i,': ',ans); end; end.2.uses crt; const n=3; var i,j,t: integer; a: array[1..n,1..n] of integer; beginwriteln('input array: '); for i: =1 to n dofor j: =1 to n doread(a[i,j]); for j: =1 to n dobegint: =a[1,j]; a[1,j]: =a[3,j]; a[3,j]: =t; end; for i: =1 to n dobeginfor j: =1 to n dowrite(a[i,j],' '); writeln(); end; end.

Как я поняла, нужно было использовать кусок кода, данный выше? var    a: array[1..10] of integer;   imax, i: byte; begin  writeln('массив: ');   randomize;   for i: =1 to 10 do    begin      a[i]: =random(100);       write(a[i]: 4);     end;   imax : = 1;   for i: =2 to 10 do    if a[i] > a[imax] then imax : = i;   writeln;   writeln('максимальный элемент = ', a[imax]: 3, ' в позиции ', imax: 2); end.