28,
25,
82,
85,
52,
58,
22,
88,
55,
Program cosilka;
const dopvrem=0.6;
var
i:integer;
N:integer;
m:integer;
brigada:real;
begin
writeln('Введите количество сенокосилок:');
readln(N);
writeln('Введите количество часов у первой сенокосилки:');
readln(m);
brigada:=m;
for i:=1 to N do brigada:=brigada+dopvrem;
writeln('Ответ:', brigada:3:1,''часов'':3);
End.
104 006 080......................
var
a,b,c,n: integer;
begin
writeln('Сколько всего актеров в театре?');
readln(n);
writeln('Сколько есть высоких среди актеров?');
readln(a);
writeln('Сколько есть голубоглазых среди актеров?');
readln(b);
writeln('Сколько есть актеров блондинов?');
readln(c);
if a < b then
if a < c then writeln('Максимальное количество высоких голубоглазых блондинов: ',a)
else writeln('Максимальное количество высоких голубоглазых блондинов: ',c)
else if b < c then writeln('Максимальное количество высоких голубоглазых блондинов: ',b)
else writeln('Максимальное количество высоких голубоглазых блондинов: ',c);
<span>end.</span>
//PASCAL
var
a:array[1..10] of integer;
i,min:integer; av:real;
begin
min:=1;
randomize;
for i:=1 to 10 do begin
a[i]:=random(-10,10);
av:=av+a[i];
if a[i] <= a[min] then min:=i;
end;
av := av / 10;
writeln('Среднее арифметические: ', av:0:1,#13#10,'Минимальное: ', min);
readln;
end.