В массиве все элементы, имеющие четное значение суммы индексов, заменить на минимальный элемент массива

@Drrfreeman · Регистрация: 22.12.2019

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

@Puporev · 02.03.2020, 08:32

А какова размерность массива, двухмерный?

@Drrfreeman · 02.03.2020, 08:40 **[ТС]**

2-мерный массив

@Puporev · 02.03.2020, 08:49

Pascal

var a:array[1..10,1..15] of real;
    n,m,i,j:integer;
    mn:real;
begin
repeat
write('Введите количество строк от 2 до 10 n=');
readln(n);
until n in [2..10];
repeat
write('Введите количество столбцов от 2 до 15 m=');
readln(m);
until m in [2..15];
writeln('Массив А');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-9+18*random;
    if i+j=2 then mn:=a[1,1]
    else if a[i,j]<mn then mn:=a[i,j];
    write(a[i,j]:5:1);
   end;
  writeln;
 end;
writeln('Минимальный элемент=',mn:0:1);
writeln('Замена элементов с четной суммой индексов на минимум');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    if (i+j)mod 2=0 then a[i,j]:=mn;
    write(a[i,j]:5:1);
   end;
  writeln;
 end;
end.

@Drrfreeman 0 / 0 / 0 Регистрация: 22.12.2019 Сообщений: 51
		1
	В массиве все элементы, имеющие четное значение суммы индексов, заменить на минимальный элемент массива 02.03.2020, 08:19. Показов 1493. Ответов 3 Метки нет (Все метки) В массиве все элементы, имеющие четное значение суммы индексов, заменить на минимальный элемент массива 0

@Puporev Почетный модератор 64279 / 47578 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	02.03.2020, 08:32	2
	А какова размерность массива, двухмерный? 0

@Drrfreeman 0 / 0 / 0 Регистрация: 22.12.2019 Сообщений: 51
	02.03.2020, 08:40 [ТС]	3
	2-мерный массив 0

Опции темы

В массиве все элементы, имеющие четное значение суммы индексов, заменить на минимальный элемент массива

Решение