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

записать на место отрицательных элементов матрицы нули и отразить её в общепринятом виде. D(K,K) K<=0

Pascal

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
24.04.2020, 15:17
общий
Адресаты:
Вы можете этот момент уточнить:
Цитата: Ericsson
отразить её в общепринятом виде. D(K,K) K<=0
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

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

Смотрите код:
[code lang=pascal]const
n=10;
var
a:array[1..n,1..n]of integer;
b,c:integer;
begin
writeln('Matrix:');
for b:=1 to n do
begin
for c:=1 to n do
begin
a[b,c]:=random(3*n)-n;
write(a[b,c]:3);
end;
writeln;
end;
for b:=1 to n do
for c:=1 to n do
if a[b,c]<0 then a[b,c]:=0;
writeln('Result:');
for b:=1 to n do
begin
for c:=1 to n do
write(a[b,c]:3);
writeln;
end;
end.[/code]
Удачи!
5
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа