PROGRAM P1;
VAR N, M, i, j: INTEGER;
MAX: REAL; B: ARRAY [1..50,1..50] OF REAL;
BEGIN
WRITE ('ВВЕСТИ N, M');
READ(N, M);
WRITE ('ВВЕСТИ МАССИВ');
FOR i:=1 TO M DO
READ(B[i,j]);
MAX:=B[1,1];
FOR i:=1 TO N DO
FOR j:=1 TO M DO
IF B[i,j]>MAX THEN MAX:=B[i,j];
FOR i:=1 TO N DO
fOR j:=1 TO M DO
IF B[i,j]<0 THEN B[i,j]:=B[i,j]*MAX;
WRITELN ('MAX=', MAX);
FOR i:=1 TO N DO
FOR j:=1 TO N DO
WRITELN ('B[',i,j,']=', B[i,j]);
END.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

12.12.2011, 01:47

Ответы с готовыми решениями:

Дан массив a1, a2,…, aN. Все отрицательные элементы заменить на 3
2.Дан массив a1, a2,…, aN. Все отрицательные элементы заменить на 3. Вывести исходный и ...

Дан массив b 15 заменить все отрицательные элементы на нули
Дан массив b 15 заменить все отрицательные элементы на нули.

Дан массив A(7). Все отрицательные элементы массива возвести в квадрат
Дан массив A(7). Все отрицательные элементы массива возвести в квадрат, из положительных элементов...

Дан одномерный массив. Удалить все отрицательные элементы из него
Решите плз задачу. Дан одномерный массив. Удалить все отрицательные элементы из него.

	12.12.2011, 01:47

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

12.12.2011, 01:47

Помогаю со студенческими работами здесь

Дан массив Y. Все положительные элементы массива возвести в квадрат, а отрицательные в куб
Задача 9. Дан массив Y. Все положительные элементы массива возвести в квадрат, а отрицательные в...

Дан массив Х(16). Умножить все элементы данного массива на максимальный и вывести результаты в таком порядке, в каком были даны исходные данные.
Дан массив Х(16).умножить все элементы данного массива на максимальный ,и вывести результаты в...

В массиве нужно положительные элементы умножить на k, а отрицательные разделить на 2
Вобщем в массиве нужно положительные элементы умножить на k, а отрицательные разделить на 2. И при...

В массиве все положительные элементы умножить на 10, а все отрицательные заменить на 0
1. В одномерном массиве размерностью N все положительные элементы умножить на 10, а все...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх