Пожалуйста, напишите программу. Я бы сам разобрался и сделал, но времени нет, завтра сдавать. Задача простая (у нас всего 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].
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.