Рассмотрите числа в каждом ряду, определите какое число "лишнее" а) 2, 3, 6, 7, 11 б)18, 12, 3, 29, 45, 28 в)1, 2, 3, 5, 6, 7

ответ: а)6 ,б)28 в)6. вроде так

Program znanija_com; const     numarray = 3; type     tarray = array[1..numarray] of integer; var     arr : tarray;     i, j, temp : integer; begin for i: =1 to numarray do begin       writeln('введите элемент массива ', i);       readln(arr[i]);   end; for i: =1 to numarray do begin   for j: =i+1 to numarray do begin       if arr[i] = arr[j] then writeln('значение элемента ', i, ' совпадает со значением эелемента ', j);   end; end; readln(); end.

Program znanija_com; const     n = 3;     m = 3; type     mas = array[1..n, 1..m] of real; var     arr : mas;     i,j : integer;     summ, max : real; begin for i: =1 to n do begin   for j: =1 to m do begin       writeln('введите элемент массива [', i, ',', j, ']');       readln(arr[i, j]);   end; end; for i: =1 to m do begin   max: =arr[1, i];   for j: =2 to n do begin       if arr[i,j]> max then max: =arr[i,j];   end;   summ: =summ+max; end; writeln('сумма равна ', summ); readln(); end.