var k,i,j:integer;
a:array[1..5]of integer;
begin
for i:=1 to 5 do begin
for j:=1 to 4 do begin
if a[j]>a[j+1] then begin
k:=a[j+1];
a[j+1]:=a[j];
a[j]:=k;
end;
end;
end;
end.
Папирус стоил дорого. Поэтому случалось, что старую запись смывали и
поверх нее писали новый текст. Это -- палимпсест. Писали заостренными
палочками с расщепленными, как теперешние перья, кончиками. У каждого
писца был свой пенал, в нем лежали палочки, в нем же были выдолблены два
углубления для черной и красной краски. Основной текст писали черной
краской, только начало строки, а иногда и начало фразы выделялись красной.
Начало фразы, но не прописная буква -- в египетском письме слова не
отделялись друг от друга. Красной точечкой отделялись отдельные фразы в
поэтических произведениях..
8. Запишите следующие высказывания в форме логических выражений:
а) фамилия >< Семенов;
б) занятие = геология
в) дата рождения < 5.05.1989
г) дата <= 23.09.1996
д) алгебра >< отлично;
е) автор книги = Беляев А.Р.;
ж) год издания <=1990
з) место нахождения >=3
Правильный ответ B)
В док.файлах
Var
A,B,C,D:integer;
Begin
Write('Введите четыре целых числа: ');ReadLn(A,B,C,D);
if A < B then A:=B;
if A < C then A:=C;
if A < D then A:=D;
WriteLn('Max = ',A);
End.