Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197092
14.11.2019, 10:12
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:Дан массив, состоящий из NХM элементов, значения которого вводится
с клавиатуры. Замените отрицательные элементы массива
положительными.Pascal

Обсуждение

давно
puporev
Профессор
401888
1232
14.11.2019, 10:29
общий
это ответ
Здравствуйте, kondrat322!
[code lang=pascal]var a:array[1..10,1..10] of integer;
n,m,i,j,k:integer;
begin
repeat
writeln('Введите размеры массива от 2 до 10');
readln(n,m);
until (n in [2..10])and(m in [2..10]);
writeln('Введите элементы массива целые отрицательные и положительные числа');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
writeln('Исходный массив');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
writeln('Измененный массив');
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]<0 then a[i,j]:=-a[i,j];
write(a[i,j]:4);
end;
writeln;
end;
end.[/code]
4
Форма ответа