Задача с массивом, Помогите срочно!!! Опции

[Casio]

Пожалуйста, напишите программу. Я бы сам разобрался и сделал, но времени нет, завтра сдавать. Задача простая (у нас всего 3 лекции было). Буду очень признателен.

Задание:
Задана последовательность значений элементов некоторого массива до и после преобразования по некоторому правилу. Определите алгоритм преобразования и напишите программу, которая:
1) Формирует массив из заданного количества случайных целых (63) чисел в заданном диапазоне [-44; 44] и выводит элементы массива на экран;
2) По определённому вами алгоритму (каждый элемент минус 12) преобразовывает этот массив и выводит на экран элементы преобразования массива;
3) Производит заданные вычисления (произведение [-2; 21]) и выводит результаты на экран.


Исходные данные:
Массив F = (5, -8, 4, 8, 12, -4, 0) преобразован к виду F = (-7, -20, -8, -4, 0, -16, -12).
Размер массива F – 63 элемента из диапазона [-44; 44].
Вычислить произведение [-2; 21].

[Urnix]

Производит заданные вычисления (произведение [-2; 21])

Если я правильно понял, то это значит: найти произведение элементов преобразованного массива, которые входят в интервал [-2;21].

Если так, то вот код

var
  f:array[1..63] of integer;
  i:integer;
  p:longint;
begin
  randomize;
  writeln('ishodniy massiv:');
  for i:=1 to 63 do
    begin
      f[i]:=random(89)-44;
      write(f[i],' ');
    end;
  writeln;
  writeln('preobrazovanniy massiv:');
  p:=1;
  for i:=1 to 63 do
    begin
      f[i]:=f[i]-12;
      if (f[i]>=-2) and (f[i]<=21)
        then p:=p*f[i];
      write(f[i],' ');
    end;
  writeln;
  writeln('proizvedenie [-2,21]: ',p);
  readln;
end.

Нужно что-то изменить - пиши что именно. доволен результатом - переведи денюжек на Счета форума.

Сообщение отредактировано: Urnix - 18.06.2007 23:17