Дано число n и массив размером n×n. заполните его так, чтобы на главной диагонали стояли единицы, выше главной диагонали стояли нули, а ниже — двойки

188

301

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

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

Tenur

Информатика

4,5(51 оценок)

Var a: array[1..100,1..100] of longint; n,m,i,j: longint; begin readln(n); for i: =1 to n do for j: =1 to n do begin if not odd(n) and((i=n div 2)or(i=(n div 2)+1)) then a[i,j]: =1 else if odd(n) and( i=(n div 2)+1) then a[i,j]: =1 else if i< n div 2 then a[i,j]: =0 else if i> n div 2 then a[i,j]: =2; end; for i: =1 to n do begin for j: =1 to n do write(a[i,j]); writeln; end; end.

enikandrova04

Информатика

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

Program primer; const n=100; var a: array[1..n] of integer; i,max: integer; begin writeln('vvedite massiv'); for i: =1 to n do readln(' ', a[i]); max: =a[1]; for i : =1 to n do if (a[i]> a[1]) and (a[i]> 0) then max: =a[i]; writeln('max=',max); readln; end.