20 ! составить программу на языке с++: 1. описать структуру с именем tovar, которая содержит следующие поля: - name - название товара; - cost_z - цена закупки товара; - cost_p - цена продукции. - quantity -количество единиц товара; - pributok - прибыль. 2. написать программу, которая использует данную структуру и выполняет следующие действия: - вводит из текстового файла sklad.dat список книг, согласно структуры, и выводит его на экран, используя элемент список; - вычисляет прибыль по каждому товару; - добавляет в начало списка n новых товаров; - удаляет товар, который приносит прибыль; - с вновь списка записать в двоичный файл sklad.sol все товары, которые имеют наибольшую прибыль. 3. написать программу, которая считывает из двоичного файла sklad_n.dat, данные обо всех товарах и записывает в файл tovar.dat товар, цена которого превышает среднюю цену товара .

from random import randint

S1 = [randint(1,100) for i in range(20)]

summa1 = 0

summa2 = 0

for i in S1:

   if i % 2 == 0:

       summa1 += i

   else:

       summa2 += i

print(f"Сумма чётных = {summa1}")

print(f"Сумма нечёт = {summa2}")

print(max(S1)) # Значение наибольшего элемента в массиве

print(min(S1)) # Значение наименьшего элемента в массиве

summa = 0

for i in S1:

   if i < 30:

       summa += i

print(f"Сумма чисел меньше 30-ти = {summa}")

summa = S1[2]

for i in S1:

   summa *= i

print(f"Произведение элементов с индексов 2({S1[2]}) = {summa}")

program spk;

var i,s,k:integer;

p:real;

a:array [1..10] of integer;

begin

for i:=1 to 10 do a[i]:=random(81)-30;

for i:=1 to 10 do write(a[i],'  ');

for i:=1 to 10 do if i mod 2 = 0 then s:=s+a[i];

p:=1;

for i:=1 to 10 do if a[i] < 0 then p:=p*a[i];

for i:=1 to 10 do if a[i] mod 2 <> 0 then k:=k+1;

write('s = ',s,'   p = ',p,'   k = ',k);

end.

Объяснение:

program spk;

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

i,s,k:integer;

p:real;

begin

p:=1;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(81)-30;

write(a[i],'  ');

if i mod 2 = 0 then s:=s+a[i];

if a[i] < 0 then p:=p*a[i];

if a[i] mod 2 <> 0 then k:=k+1

end;

writeln;

writeln('Сумма элементов массива, с четными номерами, равна ',s);

writeln('Произведение отрицательных элементов равно ',p);

writeln('Количество нечётных элементов равно ',k)

end.