Напишите программу на паскале, которая в двумерном массиве находит самое большое значение и элементы строки и столбца, на пересечении которых он стоит, делает нулевыми. я начал решать, нашел максимальное значение в массиве, а вот дальше что-то не понял. возьмите кол-во столбцов и строк по 5. заранее. : )

Var max_i, max_j, j, columns, rows, i : integer; arr: array[1..10,1..10] of integer; begin   rows : = random(8) + 2;   columns : = random(8) + 2;   writeln(rows, columns);     for i : = 1 to rows do       for j : = 1 to columns do           arr[i, j] : = random(100);   for i : = 1 to rows do begin       writeln();       for j : = 1 to columns do           write(arr[i, j]: 3);   end;   writeln();   writeln();   max_i: =1;   max_j: =1;   for i : = 1 to rows do       for j : = 1 to columns do           if arr[max_i, max_j] < arr[i, j] then begin               max_i: =i;               max_j: =j;           end;   for i : = 1 to rows do       if i < > max_i then           arr[i, max_j] : = 0;   for j : = 1 to columns do       if j < > max_j then           arr[max_i, j] : = 0;   for i : = 1 to rows do begin       writeln();       for j : = 1 to columns do           write(arr[i, j]: 3);   end;   writeln();   writeln(); end.

язык си(откомпилирован и проверен был в dev-c++)

 

#include < stdio.h> #include < stdlib.h> #include < conio.h> int main(){      int a, b, c;       printf("\n vvedite 3 chisla :   ");       scanf("%d" "%d" "%d", & a, & b, & c);             if (a > b & & a > c) printf("\n a = %d", a);       if (b > c & & b > a) printf("\n b = %d", b);       if (c > b & & c > a) printf("\n c = %d", c);       if (a == b & & a > c) printf("\n a = %d b = %d", a, b);       if (a == c & & a > b) printf("\n a = %d c = %d", a, c);       if (b == c & & b > c) printf("\n b = %d c = %d", b, c);       if (a == b & & a == c) printf("\n a = %d b = %d c = %d", a, b, c);   printf("\n\n press ");   getch( );   return 0; }

 

паскаль (откомпилирован и проверен был в pascal abc)

program z1; uses crt; var a, b , c: integer; beginwrite('vvedite 3 chisla:   '); readln(a, b, c); if (a > b) and (a > c) then writeln(' a = ', a); if (b > c) and (b > a) then writeln(' b = ', b); if (c > a) and (c > b) then writeln(' c = ', c); if (a = b) and (a > c) then writeln(' a = ', a, ' b = ', b); if (a = c) and (a > b) then writeln(' a = ', a, ' c = ', c); if (b = c) and (b > c) then writeln(' b = ', c, ' c = ', c); if (a = b) and (a = c) then writeln(' a = ', a, ' b = ', b, ' c = ', c); end.

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.