Втабличном процессоре excel создать таблицу, содержащую не менее 10 записей о наименованиях товара и его количестве и оптовой цене в у.е. (можно использовать свои цифры и наименования добавить к ячейкам столбца наименование примечания, содержащие информацию о стране производителе каждого товара. в верхней части таблицы организовать ячейки содержащие текущую дату и курс у.е. (выбрать по своему усмотрению). для каждого наименования рассчитать оптовую цену в рублях. рассчитать розничную цену товаров в рублях, используя формулу розничная цена = оптовая цена + 3 * 20%опт.цены.

Создать же надо было? Держи))

Существует три философские концепции информации: 1. Атрибутивная концепция. Информация является свойством всего сущего, всех материальных объектов мира. Информация — атрибут всех материальных объектов. 2. Функциональная концепция. Информация возникла вместе со Вселенной. Информация проявляется в воздействии одних объектов на другие, в изменениях, к котоым такие воздействия приводят. Информация — это атрибут, свойственный только живой природе. 3. Антропоцентрическая концепция. Информация существует лишь в человеческом сознании, в человеческом восприятии. Информационная деятельность присуща только человеку и происходит в социальных системах. Создавая информационную технику, человек создает инструменты для своей информационной деятельности

1) program exec;

var a:array[1..20] of integer;

var p,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(50);

writeln (a[i]);

if (a[i] mod 2<>0) then p:=p+1;

end;

if (p>0) then writeln ('Присутствуют нечётные элементы')

else writeln ('Не присутствуют нечётные элементы');

end.

2) program exec;

var a:array[1..20] of integer;

var p,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(50);

writeln (a[i]);

if (a[i] mod 2=0) then a[i]:=a[i]+1

else a[i]:=a[i]*2;

end;

writeln ('---'); // разделение двух массивов

for i:=1 to 20 do writeln (a[i]);

end.