Как найти максимальный элемент главной диагонали? program sbb; uses crt; var i, j, s: integer; a: array[1..5, 1..10] of integer; begin for i: =1 to 5 do begin for j: =1 to 10 do begin random(50); a[i, j]: =random(50); write(' '); write(a[i, j]); end; writeln end;

Никак не найти, потому что матрица не квадратная

1

var

mas:array[1..100] of integer;

i,n:integer;

en,out:text;

res:real;

qw,qwe:string;  

begin

 n:=0;

 i:=1;

 write('Введите полный путь к импортируемому файлу: ');readln(qw);

 write('Введите полный путь к экспортируемому файлу: ');readln(qwe);

 assign(en,qw+'.txt'); assign(out,qwe+'.txt');  

 reset(en); rewrite(out);

 while not Eof(en) do    

 begin

 readln(en,mas[i]);      

 n:=n+mas[i];                

 inc(i);        

 end;

   res:=(n/(i-1));  

   write(out,res);  

   close(out);      

   close(en);

 end.

Там во вторую тупо добавляешь:

 max:=-100001;

 min:=100001;

if (mas[i]<0) and (mas[i] mod 2 = 0) and (mas[i]<min) then min:=mas[i];

 if (mas[i]>0) and (mas[i] mod 2 = 1) and (mas[i]>max) then max:=mas[i];  

if (max=-100001)or(min=100001) then writeln(out,'ERROR: please, rewrite yor file')

 else  

 begin

   writeln(out,min);

   writeln(out,max);  

Тоже такие же задачи решал)) лол). Ты не из 604??)))

ответ:Историческая повесть “Тарас Бульба” мне очень нравится. Она рассказывает о нашей страны. Я люблю читать о тех героических временах, когда складывалась русская государственность. И характеры у людей в то время были особенные, самоотверженные, целеустремленные.  

  Мужчины занимались ратными подвигами. Не было важнее цели, чем отстоять свободу и независимость страны. Гоголь показывает в своей повести замечательных героев: Тараса Бульбу, Остапа, их товарищей по оружию.  

  Мне очень нравится главный герой повести — Тарас Бульба. Он сильный, смелый, решительный воин и отец. Честно выполняя свой долг, Тарас Бульба громит польских захватчиков. Но ему выпадает на долю великое испытание. Его младший сын Андрий — предатель. И Тарас находит в себе силы казнить изменника. Видят его старые глаза и гибель сына-героя Остапа. Что остается ему — умереть за родину, это и делает полковник. Он не просто гибнет, а своих товарищей. Не думая о себе, о том, что огонь уже лижет его ноги, Тарас кричит соратникам уйти от преследователей. Да, он погиб мученической смертью, но не сгинул его отряд, который будет бить врагов до победы.

Объяснение: