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.
#include <stdio.h>
int main() {
int a[20], b[30], c[20], lenC = 0;
for(int i = 0; i < 20; i++) scanf("%d", &a[i]);
for(int i = 0; i < 30; i++) scanf("%d", &b[i]);
for(int i = 0; i < 30; i++)
for(int j = 0; j < 20; j++)
if(b[i] == a[j]) {
c[i] = b[i];
lenC++;
for(int k = j; k < 20; k++)
if(a[k] == b[i]) a[k] = 0;
b[i] = 0;
break;
}
for(int i = 0; i < lenC; i++) printf("%d ", c[i]);
}
Var a,b,c:integer;
begin
Readln(a,b,c);
Writeln(max(max(a,b),c));
end.
8000000 бит > 1 Кбайт > 8000 бит > 132 байта.