Меню "Коррекция" предназначено для изменения размера изображения, картины маслом, для управления яркостью и контрактностью, для изменения оттенка и насыщенности цвета
Uses crt;var ADR:array[1..10] of string; sub:array[1..10] of string; i,k:integer; s:string; begin; for i:=1 to 10 do begin; writeln('Input town of ',i,'student'); readln(s); ADR[i]:=ADR[i]+s+' '; writeln('Input street of ',i,'student'); readln(s); ADR[i]:=ADR[i]+s+' '; writeln('Input house of ',i,'student'); readln(s); ADR[i]:=ADR[i]+s+' '; writeln('Input apartament of ',i,'student'); readln(s); ADR[i]:=ADR[i]+s; if pos('Краснодар',ADR[i])<>0 then begin; inc(k); sub[k]:=ADR[i]; end; end; TextColor(4); writeln('Result:'); for i:=1 to k do writeln(sub[i]); end.
1,3,4,5
Объяснение:
Меню "Коррекция" предназначено для изменения размера изображения, картины маслом, для управления яркостью и контрактностью, для изменения оттенка и насыщенности цвета