Дан двумерный целочисленный массив 4х4 вывести его на экран и выяснить на сколько max элемент заданного массива больше min , !

235

437

Посмотреть ответы 2

Ответы на вопрос:

камил486

Информатика

4,4(21 оценок)

Uses crt; const m=5; n=5; var a: array[1..n,1..m] of integer; i,j,min,max: integer; begin for i: =1 to n do begin for j: =1 to m do read(a[i,j]); end; writeln; min: =100; max: =0; for i: =1 to n do for j: =1 to m do begin if a[i,j]< min then min: =a[i,j]; if a[i,j]> max then max: =a[i,j]; end; write(max-min); end.

karolinetynfag

Информатика

4,7(19 оценок)

Var a,b: real; l,f,j: boolean; begin f: =false; read (a,b); if (a > 100) and (b > 100) then l: =true else l: =false; if ((a mod 2)=0) then f: =true; if ((b mod 2)=0) then f: =true; if ((a mod 2)=0) and ((b mod 2)=0) then f: =false if a > 0 or b > 0 then j: =true else j: =false; writeln ("а) ",l); writeln ("б) ",f); writeln ("в) ",j); end.