одномерные массивы в турбо паскале

[Lolman]

Даны массивы
s1,...,s10-наименование предприятий;
с1,...,c10-стоимость изделий;
k1,...,k10-количество изделий изготовленных за месяц;
pk1,...,pk10-плановое количество изделий.
Напечатать список изделий,изготовленных на сумму от 20000 до 25000 руб.;список изделий,по которым не выполнен план.

Народ завтра зачет выручите плз

выручайте плз

[Lolman]

выручайте плз

[firephenix]

var
  a : array[1..10] of string;
  b,c,d : array[1..10] of longint;
  i : longint;

begin
  for i:=1 to 10 do read(a[i]);
  for i:=1 to 10 do read(b[i]);
  for i:=1 to 10 do read(c[i]);
  for i:=1 to 10 do read(d[i]);
  for i:=1 to 10 do
    if (b[i]*c[i]>=20000) and (b[i]*c[i]<=25000) then writeln(a[i]);
  for i:=1 to 10 do
    if c[i]<d[i] then writeln(a[i]);
end.

[Lolman]

спасибо большое,проверить возможности нету надеюсь что рабочая еще раз спасибо!!!

[Leisan92]

1. Вычислить значения 39 элементов одномерного целочисленного массива V в интервале (-10, 10) с использованием генератора случайных чисел.
2. Вычислить среднегеометрическое значение четных по значению элементов второй четверти массива.

Пожалуйста, помогите!!!

[malinoff]

Сообщение от Leisan92

1. Вычислить значения 39 элементов одномерного целочисленного массива V в интервале (-10, 10) с использованием генератора случайных чисел.
2. Вычислить среднегеометрическое значение четных по значению элементов второй четверти массива.

Пожалуйста, помогите!!!

Одна тема - один вопрос.