Дан двумерный массив А(4,5). Заменить максимальный элемент каждой строки на противоположный

@Kastiil · Регистрация: 23.05.2014

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

Дан двумерный массив А(4,5), заполненный с помощью ГСЧ. Заменить максимальный элемент каждой строки на противоположный.

Kodzaev · 23.05.2014, 20:31

Pascal

const
  rows = 4;
  cols = 5;
  
var
  a: array [1..rows, 1..cols] of integer;
  i, j, jmax, max: integer;
  
begin
  Randomize;
  WriteLn('Исходный массив:');
  for i := 1 to rows do
  begin
    max := -MAXINT - 1;
    for j := 1 to cols do
    begin
      a[i, j] := Random(201) - 100;
      Write(a[i, j]:6);
      if a[i, j] > max then
      begin
        max := a[i, j];
        jmax := j
      end;
    end;
    a[i, jmax] := -a[i, jmax];
    WriteLn
  end;
  WriteLn('Полученный массив:');
  for i := 1 to rows do
  begin
    for j := 1 to cols do
      Write(a[i, j]:6);
    WriteLn
  end;
  ReadLn
end.

@Kastiil 0 / 0 / 0 Регистрация: 23.05.2014 Сообщений: 11
		1
	Дан двумерный массив А(4,5). Заменить максимальный элемент каждой строки на противоположный 23.05.2014, 19:53. Показов 1838. Ответов 1 Метки нет (Все метки) Дан двумерный массив А(4,5), заполненный с помощью ГСЧ. Заменить максимальный элемент каждой строки на противоположный. 0

Опции темы

Дан двумерный массив А(4,5). Заменить максимальный элемент каждой строки на противоположный

Решение