Program mas2;
uses crt;
var
a:array[1..5] of integer;
b:array[1..5] of integer;
t,i,m1,m2:integer;
begin
randomize;
clrscr;
writeln('Vvedite T');
readln(t);
for i:=1 to 5 do
a[i]:=random(t+1);
b[i]:=random(t+1);
if a[i]<t then m1:=m1+1
else
if b[i]<t then m2:=m2+1;
if m1>m2 then
begin
for i:=1 to 5 do
write(' ',a[i])
end
else
for i:=1 to 5 do
write(' ',b[i]);
writeln;
end.
Может не совсем красиво, но зато работает)))
Наглядные (картинные),модели-изображения(фотография,кино,телеизображения.абстрактные знаковые модели(печатный текст,формуляр,знаковое табло)ГРАФИЧЕСКИЕ(ГРАФИК,ДИАГРАММА,ЧЕРТЁЖ,БЛОК-СХЕМА)
If a > b then writeln('a > b')
else
if a < b then writeln('a < b')
else
writeln('a = b');
Var s1,s2 : String;
i,n : Byte;
Function Min(a,b : Byte) : Byte;
Begin
If a<b then Min:=a else Min:=b;
end;
Begin
Readln(s1);
Readln(s2);
n:=0;
For i:=1 to Min(Length(s1),Length(s2)) do If s1[i]=s2[i] then Inc(n);
Writeln(n);
end.
Ответ 2 , последовательность символом , слов , абзацев