1.var
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for i:=1 to 9 do
begin
while (a[i]<1) or (a[i]>6) do
begin
write(i,' оценка: ');
readln(a[i]);
end;
if i=1 then
begin
max:=a[1];
min:=a[1];
end;
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
b:=b+a[i];
end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
<span>end.
2. </span><span>#include <stdafx.h> </span>
<span>#include <stdio.h> </span>
<span>#include <math.h> </span>
<span>#include <stdlib.h> //for rand; </span>
int main()
<span> { </span>
<span>int i, n,M[1]; </span>
printf("Vvedit N:");
<span> scanf("%d",&n); </span>
<span>for (i = 0; i < n; i++) </span>
<span> { </span>
<span> M[i] = rand()%10; </span>
}
<span>for (i = 0; i < n; i++) </span>
<span> { </span>
printf("Array[%d] = %d\n", i, M[i]);
<span> } </span>
<span> scanf("%d"); </span>
<span>return 0; </span>
<span>}
3. </span>var
a:array[0..9] of integer;
i,y,min:integer;
begin
randomize();
for i:=0 to 9 do
begin
y:= random(10);
a[i]:= y;
end;
for i:=0 to 9 do write(a[i],' ');
writeln(' - десять випадковых чисел');
min:=a[0];
for i:=1 to 9 do
if a[i]<min then min:=a[i];
writeln(min, ' - минимальне число.');
end.