|-----|
| |
| |
| ---|
| |
| |
| |
| |
| |
| |
* Финиш
Фляга в двух шагах направо от дуба, то есть навосток
Uses
Crt;
const
n = 10;
var
a: array[1..n] of integer;
i, min: integer;
begin
Randomize;
Writeln('Исходный массив');
min := 1000;
for i := 1 to n do
begin
a[i] := Random(100);
Write(a[i], ' ');
if min > a[i] then min := a[i]
end;
Writeln;
Writeln('Минимальный элемент равен ', min)
end.
<u>Тестовое решение:</u>
Исходный массив
32 35 39 60 35 66 44 50 14 77
Минимальный элемент равен 14
program fantscrin;
var a,c: array [1..1000] of integer;
i,n,s,j:integer;
Begin
write('N = '); readln(n);
s:=0;
for i:=1 to n do
begin
write('c[',i,'] = '); readln(c[i]);
s:=s+c[i];
end;
writeln('S = ', s);
j:=0;
for i:=1 to n do
if c[i] > s / n then
begin
j:= j + 1;
a[j]:= c[i];
end;
for i:=1 to j do
write(a[i], ' ')
End.