Var
a: array[1..10] of integer;
i, max: integer;
begin
for i := 1 to 10 do
begin
read(a[i]);
if (i = 1) or (a[i] > max) then
max := a[i];
end;
writeln('Max value = ', max)
end.
Ответ, в текстовом виде не прикладывается
Дроздов Петр
Борисов Влад
Козин Леонид
Истомин Олег
Степанов Николай
Ты хоть сама поняла что написала извиняюсь конечно
Во!
uses graphABC;
var x,y,z,n:integer;
Begin
randomize;
n:=random(1000)+1;
y:=random(n)+123;
x:=random(y)+n;
z:=x+23;
SetWindowSize(n,z);
setbrushcolor (clRed);
Ellipse(z,y,n,x);
floodfill (z,n, clgreen);
line(z,x,z,n);
line(n,y,n,z);
line(x,x,z,n);
end.