Заполнить массив V(7,7) целыми случайными числами из интервала [-15,15]. Распечатать его....

Question

Заполнить массив V(7,7) целыми случайными числами из интервала [-15,15]. Распечатать его.
- Найти произведение элементов третьей строки и количество элементов больших, этого произведения
- найти и распечатать максимум в 3 столбце массива

Comments

и количество элементов больших, этого произведения - тоже из 3 строки, или из всего массива?

Answer 1

//Программа и скриншот ее работы в приложениях.
//В условии неясность

const
    rows=7;
    cols=7;
var  
    i,j,s:byte;
    max,elm:shortint;
    prod:integer;
    T:array[1..rows, 1..cols] of shortint;
   
begin
  writeln('Заполнение массива случайными данными');
 
  for i:=1 to rows do begin
    for j:=1 to cols do begin
      T[i,j]:=random(-15,15);// диапазон случайных чисел
      write(T[i,j]:6);
    end;
    writeln();
  end;

  prod:=1;
  for j:=1 to cols do
    //произведение эл-ов 3 строки
    prod:=prod*T[3,j];     
  writeln('Произведение элементов 3-ей строки: ', prod);

  elm:=0;
  for j:=1 to cols do
    //если элемент 3 строки больше произведения эл-ов 3-ей строки
    if (T[3,j]>prod) then
      elm:=elm+1;
  writeln('Количество элементов 3-ей строки больших этого произведения: ', elm); 

  max:=0;
  for i:=1 to rows do
    if (max      max:=T[i,3];
  writeln('Максимум в 3 столбце массива: ', max);
end.

---