Выделить буквы другим цветом
Залить фон с буквами
Жирный шрифт
Подчеркивание
Начало
взять лопату
почистить снег
положить лопату
Конец
3+1=4-1=100(милибайтов)-27=73(милибайтов)
ответ:73 милибайта
Program programma;
uses crt;
var i,j,m, n, k: integer;
a:array [1..100, 1..100] of integer;
begin clrscr;
randomize;
write('N = '); readln(n);
write('M = '); readln(m);
for i:=1 to n do
begin
for j:= 1 to m do
a[i,j]:=random(50);
end;
writeln;
k:=0;
for i:=1 to n do
begin
for j:= 1 to m do
write(a[i,j]:5);
writeln;
end;
for i:=1 to n do
begin
for j:= 1 to m-1 do
if (a[i,j]<=a[i,j+1]) then k:=k+1;
writeln;
if (k=m-1) then writeln ('Номер строки: ', i);
k:=0;
end;
end.
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
var a:=ArrRandom(10,1,100); a.Println;
var imax:=a.IndexMax;
var imin:=a.IndexMin;
Swap(a[imax],a[imin]); a.Println
end.
<u>Пример</u>
65 47 11 68 51 83 90 73 4 43
65 47 11 68 51 83 4 73 90 43