Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 190624
03.03.2017, 22:38
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

Написать процедуру замены всех максимальных элементов в одномерном массиве на -10. Использовать ее для всех строк двумерного массива. Pascal

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
06.03.2017, 16:17
общий
это ответ
Здравствуйте, pichyshkina!

Смотрите код(ТР7):
[code lang=pascal h=200]const
m=6;
n=5;
type
TLine=array[1..m]of integer;
var
a:array[1..n]of TLine;
b,c:integer;
procedure d(var a:TLine);
var
b,c:integer;
begin
b:=1;
for c:=2 to m do
if a[b]<a[c] then b:=c;
b:=a[b];
for c:=1 to m do
if a[c]=b then a[c]:=-10;
end;
begin
randomize;
writeln('create');
for b:=1 to n do
begin
for c:=1 to m do
begin
a[b,c]:=random(100);
write(a[b,c]:4);
end;
writeln;
end;
writeln('work');
for b:=1 to n do
d(a[b]);
writeln('result');
for b:=1 to n do
begin
for c:=1 to m do
write(a[b,c]:4);
writeln;
end;
end.[/code]
ps:воросы в минифорум.
Удачи!
5
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа