Запросить и ввести количество членов линейного массива не более 50 затем сам массив действительных чисел вывести получившийся массив и вывести номера элементов равных 7, 5

Program _massiv; 
var  A:array[1..50] of real; 
 i,c:integer; 
begin 
writeln('Задайте количество членов линейного массива'); 
readln(c); 
for i:=1 to c do begin 
writeln('Введите',' ',i,' элемент массива'); 
readln(A[i]); 
 end; 
for i:=1 to c do
writeln('Элемент массива ',i,' равен ',a[i]); 
for i:=1 to c do 
if A[i]=7.5 then writeln('Номер элемента массива, равный 7.5  ',i) 
end.  

Объяснение:

Начало;

Ввод X, Y (они у нас уже есть в табл. 1 и 2 (к примеру, в 1 табл. X=9, Y=14));

X=Y (у нас X=9, Y=14; 9 не равна 14, а это значит мы идём по стрелочке "нет");

X>Y (9 не больше 14, идём по стрелочке "нет");

Y=Y-X (подставляем в формулу наши X, Y из табл. 1 и получаем Y=14-9=5);

Теперь переходим на новую строчку табл. 1. X остаётся прежним (9), а в Y пишем тот, что мы нашли (5). Начинаем всё заново.

X=Y (9 не равна 5, идём по стрелочке "нет");

X>Y (9 больше 5, а это значит мы идём по стрелочке "да");

X=X-Y (подставляем в формулу наши X, Y. Это уже будет X=9-5=4)

Теперь переходим на новую строчку табл. 1. X теперь 4, а Y остаётся  прежним (5). Начинаем всё заново.

Так проделываем каждый раз пока X не станет равно Y (в 1 табл. это 1=1).

Первая задача:
var
  i, c, sum: shortint;
  sr: real;
  m: array[1..20] of shortint;

begin
  sum := 0;
  readln(c);
  for i := 1 to c do
  begin
    readln(m[i]);
    sum := sum + m[i];
  end;
  sr := sum / c;
  sr := round(sr * 100) / 100;  //если округлять не нужно, удали эту строчку
  writeln('Среднее арифметическое: ', sr);
end.

Вторая задача:
var
  i, c: shortint;
  p: integer;
  m: array[1..20] of shortint;

begin
  p := 1;
  readln(c);
  for i := 1 to c do readln(m[i]);
  for i := 1 to c do p := abs(p * (m[i]));
  writeln('Произведение всех модулей массива: ', p)
end.