var
a, min: integer;
begin
min := 1000;
repeat
readln(a);
if(a < min) and (a >= 0) then min := a;
until(a < 0);
writeln('Минимальное число: ', min);
end.
Program Anutka1506;
uses crt;
var
x,y,s,p: real;
begin
writeln('Введите числа:');
write('X='); readln(x);
write('Y='); readln(y);
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
s:=(x+y)/2;
p:=2*x*y;
if x<y then
begin
x:=s;
y:=p;
end
else
begin
x:=p;
y:=s;
end;
writeln('X=',x,' Y=',y);
end.
// 1
double sum = 0; for(int i = 0; i < 6; i++){ double temp; std::cin >> temp; sum += temp; } std::cout << sum;
// 2
for(int i = (sizeof(arr)/sizeof(*arr)) - 1; i >= 0; i--){ std::cout << arr[i]; }
// 3
double sum = 0; for(int i = 0; i < 5; i++){ double temp; std::cin >> temp; sum += temp; } std::cout << sum;