Найти произведение элементов, больших среднего значения

@DmitryPiS · Регистрация: 27.02.2014

Author24 — интернет-сервис помощи студентам

Всем привет. Очень давно не работал с Pascal'ем и ни как не могу понять, что надо сделать, думаю у вас это получится лучше ....

Лабораторная работа.

Пример задачки:

Pascal

Program lab5;
Var
 A: array [1..10,1..15] of real;
 i, j, m, n: integer; s, p, min, max: real;
Begin
 writeln('Введи m,n'); read(m,n);
 writeln('Введи массив A');
 for i:=1 to m do
  for j:=1 to n do
   read(A[i,j]);
 s:=0; p:=1; min:=A[1,1]; max:=A[1,1];
 for i:=1 to m do for j:=1 to n do
   begin
    s:=s+A[i,j]; p:=p*A[i,j];
    if A[i,j]<min then min:=A[i,j];
    if A[i,j]>max then max:=A[i,j];
   end;
 writeln('s=',s:10:3,'  p=',p:10:3,
  '  min=',min:10:3,'  max=',max:10:3);
End.

Задание
2. Дан массив C (m, n). Найти произведение элементов, больших среднего значения.

@Cyborg Drone · 24.04.2014, 00:56

DmitryPiS, а... Пример-то этот... К чему? Он никак не связан с Вашим вопросом.

@pozitiv_rus · 24.04.2014, 07:41

Ну он типа "хитрый"

Тут как понял не особо любят помогать тем, кто сам даже не пытается сделать
Вот он и скопировал код, думает прокатит

@Cyborg Drone Модератор 9870 / 5238 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	24.04.2014, 00:56	2
	DmitryPiS, а... Пример-то этот... К чему? Он никак не связан с Вашим вопросом. 0

@pozitiv_rus 14 / 14 / 5 Регистрация: 13.07.2013 Сообщений: 230
	24.04.2014, 07:41	3
	Ну он типа "хитрый" Тут как понял не особо любят помогать тем, кто сам даже не пытается сделать Вот он и скопировал код, думает прокатит 0