если она заряжаетса то зарадите а если нет то она поломана я так думаю
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??)))
картинка
Объяснение:
По горизонтали:
3. Определяет действия табличного процессора при реализации вычислений (формула)
5. Цифрами нумеруются… (строки)
6. Буквами озаглавливаются… (столбцы)
8. Чтобы возвести число в квадрат необходимо применить… (апостроф)
9. Категория функций, к которой относятся функции ИЛИ, И, НЕ (логическая)
11. Первый параметр в функции ЕСЛИ (условие)
12. Документ, состоящий из листов (книга)
14. Название панели, на которой располагаются все вкладки в MS Word (лента)
15. Это может быть датой, числом, текстом и т.д. (значения)
По вертикали:
1. Они бывают смешанные, абсолютные и относительные (формулы)
2. Она состоит из столбцов и строк (таблица)
4. Общепризнанным изобретателем Эл. табл. считается Ден… (бринклин)
6. В самом низу диалогового окна Excel располагается "Строка ..." (состояния)
7. Для написания действующей формулы, пишут знак ... (равно)
10. Название адресации, которая приводит к тому, что при копировании и перемещении формулы адреса ячеек в формуле изменяются в зависимости от их месторасположения (относительная)
13. Запись формулы начинается со знака… (равенства)
16. Место пересечения столбца и строки в электронной таблице (ячейка)
Телефон не поддерживает ее