Написать программку на Паскаль. Двумерный массив заполнить рандомно. Отыскать номера первых
Написать программу на Паскаль. Двумерный массив заполнить рандомно. Найти номера первых отрицательных частей каждой строчки(столбца)
Задать свой вопрос1 ответ
Елизавета Айзатова
//Pascal ABC.NET v3.1 сборка 1172
Const
n=4;
Var
ma:array[1..n,1..n] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
ma[i,j]:=random(50)-20;
write(ma[i,j]:4);
end;
writeln;
end;
writeln('Сторки:');
for i:=1 to n do
begin
write(i,':');
for j:=1 to n do
if ma[i,j]lt;0 then
begin
writeln(j);
break;
end;
writeln;
end;
writeln('Столбцы:');
for j:=1 to n do
begin
write(j,':');
for i:=1 to n do
if ma[i,j]lt;0 then
begin
writeln(i);
break;
end;
writeln;
end;
end.
Const
n=4;
Var
ma:array[1..n,1..n] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
ma[i,j]:=random(50)-20;
write(ma[i,j]:4);
end;
writeln;
end;
writeln('Сторки:');
for i:=1 to n do
begin
write(i,':');
for j:=1 to n do
if ma[i,j]lt;0 then
begin
writeln(j);
break;
end;
writeln;
end;
writeln('Столбцы:');
for j:=1 to n do
begin
write(j,':');
for i:=1 to n do
if ma[i,j]lt;0 then
begin
writeln(i);
break;
end;
writeln;
end;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов