Var a,min:integer;
begin;
min:=<span>32767;
</span>a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
if a>0 then exit;
if min>a then min:=a;
end;
writeln(min);
end.
От того какой он и что в нем
674 = <span>DCLXXIV
78 = </span><span>LXXVIII
465 = </span><span>CDLXV
</span>3440 = <span>MMMCDXL
</span>MMMDXIV = <span>3514
CCCI = </span><span>301
CDVII = </span><span>407
LIX = </span><span>59
MMCCCDXXIV = </span><span>2624
</span>
Var
n,k:integer;
begin
Write('Введите количество школьников и количество яблок: ');
Read(n,k);
Writeln('Каждому школьнику достанется яблок: ',k div n);
Writeln('Останется в корзине яблок: ',k mod n)
end.
<u>Пример</u>
Введите количество школьников и количество яблок: 19 50
Каждому школьнику достанется яблок: 2
Останется в корзине яблок: 12
Program z;
const n=5;
var a:array[1..n] of real;
i:integer; s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
if a[i]>0 then a[i]:=s;
for i:=1 to n do
write(a[i],' ');
end.