Напишу сразу код, немного прокемментировал, но если взялись связать свою жизнь с информатикой, то нужно изучать это всё.
varF:array[0..16] of integer;i,i2:integer;schet:integer; begin schet:=0; //заполнение массива согласно данным условиям for i:=0 to 9 dof[i]:=1; for i:=11 to 13 dof[i]:=1; //создадим два отрицательных массива f[10]:=-1; F[14]:=-1; //заполним вручную недостающие f[15]:=1; f[16]:=1; for i:=0 to high(f) do begin //начинаем цикл if f[i]<0 then begin //проверяем первое условик if schet=0 then begin inc(schet); for i2:=0 to i do f[i2]:=0; end else if schet=1 then //второе условие for i2:=i to high(f) do f[i2]:=0; end;end; //end for
Program Task; Const N = 5; Var a: Array [1..N] of LongInt; i: Integer; Function MinDigit(number: LongInt): Integer; Var digits: Array of Integer; num, min, i: Integer; Begin num := number; While num <> 0 Do Begin num := num Div 10; i := i + 1; End; SetLength(digits, i); num := number; For i := 0 To Length(digits) - 1 Do Begin digits[i] := num Mod 10; num := num Div 10;End; For i := 0 To Length(digits) - 1 Do If digits[i] < digits[min] Then min := i; Result := digits[min]; End; Begin WriteLn('Введите ', N, ' целых чисел через пробел'); For i := 1 To N Do Read(a[i]); For i := 1 To N Do Write(MinDigit(a[i]), ' '); End.
varF:array[0..16] of integer;i,i2:integer;schet:integer;
begin
schet:=0;
//заполнение массива согласно данным условиям
for i:=0 to 9 dof[i]:=1;
for i:=11 to 13 dof[i]:=1;
//создадим два отрицательных массива
f[10]:=-1;
F[14]:=-1;
//заполним вручную недостающие
f[15]:=1;
f[16]:=1;
for i:=0 to high(f) do begin //начинаем цикл
if f[i]<0 then begin //проверяем первое условик
if schet=0 then begin
inc(schet);
for i2:=0 to i do
f[i2]:=0;
end else
if schet=1 then //второе условие
for i2:=i to high(f) do
f[i2]:=0; end;end;
//end for