НУЖНА ПО EXCEL!
ПРИКРЕПИТЕ ДОКУМЕНТ EXCEL)
a) Создайте формат, выводящий положительные числа со словом «Приход», отрицательные со словом «Расход», вместо нуля – «Ничего», а в случае ввода текста – «Ошибка».
Пояснения к работе:
1. Выделить ячейку
2. Контекстное меню – Формат Ячейки
3. вкладка Число, пункт (все форматы)
4. В строке тип записываем
«Приход:»###р.;«Расход:»###р.;«Ничего»; «Ошибка»@
б) Создайте формат, выводящий числа от 0 до 10 синим цветом, от 10 до 20 – красным, остальные - зеленым цветом.
Пояснения к работе
1. Выделить ячейку
2. Контекстное меню – Формат Ячейки
3. вкладка Число, пункт (все форматы)
4. В строке тип записываем
[Синий][<10];[Красный][<20];[Зеленый]
const
n=10;
var
x:array[1..n] of integer;
i,k:integer;
begin
{ подготовка исходного массива }
Randomize;
Writeln('Исходный массив');
for i:=1 to n do
begin
x[i]:=Random(200)-100;
Write(x[i],' ')
end;
Writeln;
{ непосредственно алгоритм }
k:=0;
i:=1;
while (i<=n) and (k=0) do
if x[i]<0 then for k:=i to n-1 do x[k]:=x[k+1]
else Inc(i);
for i:=1 to n-1 do Write(x[i],' ')
end.
Контрольное решение
Исходный массив
93 59 61 -76 30 -79 52 -76 91 -82
93 59 61 30 -79 52 -76 91 -82