Замените в массиве максимальные элементы каждой строки произведением их цифр

@Reekee · Регистрация: 18.06.2014

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

Объявите двумерный целочисленный массив, в котором n x m элементов. Выполните генерацию массива случайными целыми числами из промежутка [a; b). Замените в массиве максимальные элементы каждой строки произведением их цифр. Распечатайте массив в виде таблицы дважды: до и после замены.

Новичок · 19.06.2014, 23:24

Pascal

var t:array[1..100,1..100] of Integer;
i,j,n,m,a,b,maxi,max,p:Integer;
begin
Write('n=');
Readln(n);
Write('m=');
Readln(m);
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Writeln('Исходная матрица:');
Randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    t[i,j]:=a+Random(b-a);
    Write(t[i,j]:4);
   end;
   Writeln;
 end;
for i:=1 to n do
 begin
  p:=1;
  maxi:=1;
  for j:=2 to m do
   if t[i,j]>t[i,maxi] then maxi:=j;
  max:=t[i,maxi];
  while max<>0 do
   begin
    p:=p*(max mod 10);
    max:=max div 10;
   end;
  t[i,maxi]:=p;
 end;
Writeln('Полученная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do Write(t[i,j]:4);
  Writeln;
 end;
Readln;
end.

@Reekee 0 / 0 / 0 Регистрация: 18.06.2014 Сообщений: 32
		1
	Замените в массиве максимальные элементы каждой строки произведением их цифр 19.06.2014, 17:08. Показов 2099. Ответов 1 Метки нет (Все метки) Объявите двумерный целочисленный массив, в котором n x m элементов. Выполните генерацию массива случайными целыми числами из промежутка [a; b). Замените в массиве максимальные элементы каждой строки произведением их цифр. Распечатайте массив в виде таблицы дважды: до и после замены. 0

Опции темы

Замените в массиве максимальные элементы каждой строки произведением их цифр

Решение