2)
uses crt;
const n=random(50);
var a:array[1..n]of integer;
i,min,max,s,k:integer;
begin
clrscr;min:=11;writeln('оценки ',n+1,' судей');
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
if a[i]> max then max:=a[i];
if a[i]<min then min:=a[i];
end;
for i:=1 to n do
begin
if (a[i]=min)or(a[i]=max) then begin write(i,' судья поставил минимальный или максимальный балл');writeln;end;
if (a[i]<>min)and(a[i]<>max) then begin s:=s+a[i];k:=k+1;end;
end;
writeln('среднее значение оценок судей ',(s/k):1:1);
end.
1)Uses crt;
const n=5;
Var a:array[1..n]of integer;
i,min,km:integer;
begin clrscr; randomize;
for i:=1 to n do
begin
a[i]:=Random(100);
write(a[i],' ');
end;
writeln;
min:=a[1];
km:=1;
for i:=2 to n do if a[i]<min then
begin
min:=a[i];
km:=i;
end;
writeln('Mimimalnoe chislo a[',km,']=',min);
min:=100;
km:=1;
for i:=2 to n do if (a[i]<min)and(a[i]mod 2=0) then
begin
min:=a[i];
km:=i;
end;
writeln('Naimenshee chetnoe cislo a[',km,']=',min);
readln;
end.
program raf105;
var mama,sum,rub,day:integer;
begin
write('Какую сумму денег мама выдала сыну? >> ');
readln(mama);
writeln('Введите сумму, которую вы потратили за один день');
writeln('Что бы узнать оставшиеся и потраченные деньги введите "-1"');
sum:=mama;
while sum<>0 do
begin
readln(rub);
if sum-rub >= 0
then
if rub=-1
then
begin
writeln('У вас осталось ',sum,' руб.');
writeln('Вы потратили ',mama-sum,' руб. за ',day,' дн.');
end
else
begin
sum:= sum-rub;
day:= day+1;
end
else writeln('У вас недостаточно денег, что бы потратить такую сумму');
end;
writeln('У вас закончились деньги');
writeln('Вы потратили их за ',day,' дн.');
end.
Написано на языке PascalABC.NET
const {убраны лишние описатели - чистая косметика}
a = 2.12;
b = 7.45;
h = 0.34;
var
x, f1, f2, y, s: real;
i, n: integer; {описание, необходимое для цикла}
begin
{ x := a; этот оператор не нужен }
s := 0;
n := Trunc((b - a) / h)+1; {стандартная формула числа повторений цикла }
for i := 1 to n do { Заголовок цикла }
begin {начало блока для выполнения в цикле }
x := a + (i - 1) * h; { перенесено из конца цикла }
f1 := 3 * ln(exp(1 / 5) * ln(sin(x) + sqr(x)));
f2 := ((2 * x + 1) / (x * x * x * x * x));
y := f1 / f2;
s := s + y;
end; {конец блока для выполнения в цикле }
Writeln('S=', s:10:5);
end.
Тестовое решение:
S=26390.53751