Ilpnauenne 1 ot;ТЕКАННЕ РИСУНКА ТЕкстом MICROSOFT WORD - omm nanóanee ponpo- станні пістои редактор, соданнill фир Mofi Afierosoft Corp, mpornimnMa, KOTopar noOnser баріат, паплыть, форматировать и растент нати текст. В окно также проператорфо тарто, пунктуашно, стил, текст, хот доверить олностью и прессы программе не pekOMerivercR Тексты ростаглі мога фармаар мангут быть импор пированы и других программ настроены тест доку непотуются на еление рисунки, комліла армат аъекта дитиніруется калпа акепс, принт і рам РАСПОЛОЖЕНИЕ РУкл под ТЕкстом TERROR peEpo, cnt upon Aternos Corp pe pan, satopa nihne ert cip , popnponas тиетом и анклуза с пылете, далее абарабъекти, стер ашия орна апр арилгусу Ама текста отнасосы рисунка, ГАЗЕтный стиль ТЕКСТА тип форматиро- AT ТЕКСТ Opop- MHM TEKCT O seT- ном стиле е бук- eroro cruit it nenemoro dpar- Meta Teata - сте с последовательно 39 en NOMA Pa yerananHmoTCH параметры Bapitais т газетного тек ста. Для оформле GyKHt MC- пользуют команду Нетанка, Букин MICROSOFT FORD 113 иболее распро сто релла- pon conanali pupuoll Alicrenoft Corp программа, набирать, испраць-
Вот что удалось скопировать
1
var
mas:array[1..100] of integer;
i,n:integer;
en,out:text;
res:real;
qw,qwe:string;
begin
n:=0;
i:=1;
write('Введите полный путь к импортируемому файлу: ');readln(qw);
write('Введите полный путь к экспортируемому файлу: ');readln(qwe);
assign(en,qw+'.txt'); assign(out,qwe+'.txt');
reset(en); rewrite(out);
while not Eof(en) do
begin
readln(en,mas[i]);
n:=n+mas[i];
inc(i);
end;
res:=(n/(i-1));
write(out,res);
close(out);
close(en);
end.
Там во вторую тупо добавляешь:
max:=-100001;
min:=100001;
if (mas[i]<0) and (mas[i] mod 2 = 0) and (mas[i]<min) then min:=mas[i];
if (mas[i]>0) and (mas[i] mod 2 = 1) and (mas[i]>max) then max:=mas[i];
if (max=-100001)or(min=100001) then writeln(out,'ERROR: please, rewrite yor file')
else
begin
writeln(out,min);
writeln(out,max);
Тоже такие же задачи решал)) лол). Ты не из 604??)))
