Уведіть два числа. Менше замініть сумою цих чисел, більше — їх різницею. Виведіть результати. Написать программу

247

391

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

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

vytriskoivan

Информатика

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

Var a: array[1..13,1..13] of integer; i,j,n,m,k,c: integer; begin randomize; n: =random(13)+1; m: =n div 2 +2; writeln('исходный массив(',n,'): '); for i: = 1 to n do begin for j: = 1 to n do begin a[i,j]: =random(n*2+1)-n; write(a[i,j]: 3,' '); end; writeln end; k: =1; if (n> 2) then begin c: =a[m,n-m+2]; for i: = m to n do for j: = n-i+2 to i-1 do if a[i,j] < > c then k: =0; if k < > 0 then writeln('да') else writeln('нет') end else writeln('в массиве нет элементов ниже главной и побочной диагоналей.'); end.