Program Begenjov1997;
const
n = 40; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i,min: integer; b:boolean;
s:string;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем минимальный элемент с семеркой в конце в 8-ичной записи}
min:=a[1]; b:=false;
for i:=2 to n do
if (a[i] mod 8 = 7) and (a[i]<min) then
min:=a[i];
b:=true;
end;
{выводим min}
writeln;
if b then writeln('минимальный элемент с семеркой в конце в 8-ичной записи = ',min)
else writeln('0 (нет такого элемента)');
end.
Поделитесь своими знаниями, ответьте на вопрос:
Тест по информатике 8 класс
Program Begenjov1997;
const
n = 40; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i,min: integer; b:boolean;
s:string;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем минимальный элемент с семеркой в конце в 8-ичной записи}
min:=a[1]; b:=false;
for i:=2 to n do
if (a[i] mod 8 = 7) and (a[i]<min) then
begin
min:=a[i];
b:=true;
end;
{выводим min}
writeln;
if b then writeln('минимальный элемент с семеркой в конце в 8-ичной записи = ',min)
else writeln('0 (нет такого элемента)');
end.