70 Б Заполните список a 10 целыми псевдослучайными числами (от 0 до 10). Проверьте есть ли в списке число 0.
2. Создайте список b из элементов списка a, которые имеют четные индексы. На складе хранится 20 видов товара. В списке a внесено кол-во единиц каждого товара. В списке b - цены этих товаров.
3. Посчитайте общую стоимость всех товаров на складе. В спротивном соревновании общая оценка за выступление вычисляется следующим образом: отбрасываются наибольшая и наименьшая оценки, а с оставшихся вычисляют среднее арифметическое.
Составьте программу для определения оценки по этим правилам.

#include <stdio.h>

int main(void)
{
/* Переменная для хранения числа */
double chislo;

/* Сообщение с запросом для пользователя */
printf("Введите ваше число: ");

/* Считывание числа в определенном формате в определенное место */
scanf("%f", &chislo);

/* Проверяем, является ли число большем нуля (положительным)*/
if (chislo > 0) {
/* Если да, то прибавляем единицу (операция инкремент) */
chislo++;
}
else {
/* Если число отрицательное, то вычитаем из числа двойку */
chislo -= 2;
}

/* Выводим результата */
printf("Результата: %f", chislo);

return NULL;
}

Type point = record
       x,y: real;
     end;
var vc: array [1..4] of point;
    bg,nd: point;
    i,j,k,m: integer;
begin  writeln('координаты точек - через пробел ');
  for i:=1 to 4 do
  begin
    write('точка  ',i,'    ');
    readln(vc[i].x,vc[i].y);
  end;
{ сравнение векторов }
    m:=0;
    for i:=2 to 4 do
    begin
      bg.x:=vc[i].x-vc[1].x;
      bg.y:=vc[i].y-vc[1].y;
      j:=1;  k:=1;
      while ((j=1) or (j=i)) do j:=j+1;
      while ((k=1) or (k=i) or (k=j)) do k:=k+1;
      nd.x:=vc[j].x-vc[k].x;
      nd.y:=vc[j].y-vc[k].y;
      if ((bg.x=nd.x) and (bg.y=nd.y)) or
       ((bg.x=-nd.x) and (bg.y=-nd.y)) then
       begin
          m:=1;
          break;
       end;
   end;
   if m=1 then writeln('точки образуют параллелограмм')
   else writeln('точки не образуют параллелограмм');
end.