Программа рассчитана на то, что на экран выводится самый последний массив с результатами.
uses crt; const p=5; r=5; s=5; var a:array[1..p] of integer; b: array[1..r] of integer; c: array[1..s] of integer; m: array[1..3] of integer; k,l,i,g,j,d,v,n:integer; begin
readln(l); writeln;
for i:=1 to p do readln(a[i]); writeln;
for j:=1 to r do readln(b[j]); writeln;
for g:=1 to s do readln(c[g]); writeln;
for i:=1 to p-1 do repeat d:=0; if a[i]>a[i+1] then begin d:=1; a[i]:=a[i]+a[i+1]; a[i+1]:=a[i]-a[i+1]; a[i]:=a[i]-a[i+1]; end; until d=0;
for j:=1 to r-1 do repeat d:=0; if b[j]>b[j+1] then begin d:=1; b[j]:=b[j]+b[j+1]; b[j+1]:=b[j]-b[j+1]; b[j]:=b[j]-b[j+1]; end; until d=0;
for g:=1 to s-1 do repeat d:=0; if c[g]>c[g+1] then begin d:=1; c[g]:=c[g]+c[g+1]; c[g+1]:=c[g]-c[g+1]; c[g]:=c[g]-c[g+1]; end; until d=0;
for i:=1 to p do if a[i]=l then inc(v); m[1]:=v; v:=0;
for j:=1 to r do if b[j]=l then inc(v); m[2]:=v; v:=0;
for g:=1 to s do if c[g]=l then inc(v); m[3]:=v;
for n:=1 to 2 do repeat d:=0; if m[n]>m[n+1] then begin d:=1; m[n]:=m[n]+m[n+1]; m[n+1]:=m[n]-m[n+1]; m[n]:=m[n]-m[n+1]; end; until d=0;
Однажды встретились Системный Блок и Клавиатура. - Что у тебя с памятью? - напечатала клавиатура. - Всё нормально, - прогудел Системный Блок, - как проживает твоя сестра Мышка? - Ушла в отпуск, - отпечатала клавиатура, - теперь одна работаю на Компьютер. - Ты всё ещё работаешь на тот Компьютер? - удивился Системный Блок, скрипя процессором. - Да, но я решила работать на тебя. - Вот как! - обрадовался Системный Блок. - Да. Ну ладно, до скорого! Не зависай в нужные моменты! - Удачи! Пусть твои клавиши останутся такими же чистыми, какие они сейчас! Клавиатура и Системный Блок попрощались, после чего их выключили из сети.
Смахивает на наркоманию... Ну, надеюсь, это именно то, что нужно :)
С
D
A
B
E
Fْْْْْْْْْْْْْ
G