Var i,max:integer;a:array[1..10]of integer;beginfor i:=1 to 10 do readln(a[i]);max:=a[1];for i:=1 to 10 doif a[i]>max then max:=a[i];writeln(max);end.
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.
___Биты: 14ТБ = 120.259.084.288 бит
5МБ = 40960 бит
10ГБ = 83886080 бит
___Байты: 231ГБ = 242221056 байт
800БИТ = 100 байт
13МБ = 13312 байт
1-просыпаюсь 2-умываюсь,чистью зубы 3-звтрокаю 4-одиваюсь в школьную форму 5-выхожу в школу