for i:= 1 to m do
begin
for j:= 1 to n do
if a[i,j]< 0 then write(' ',a[i,j]);
writeln;
end;
помогите,пожалуйста!!! Двумерный массив
Задать вводом с клавиатуры двумерный массив М(5;5) (массив вводить по строкам). Вывести на экран отрицательные элементы каждой строки матрицы.
Вот решение:
program massiv;
uses crt;
const m=5;n=5;
var a:array[1..m,1..n]of integer;
i,j,x:integer;
BEGIN
Clrscr;
For i:=1 to m do
For j:=1 to n do
readln(a[i,j]);
For i:=1 to m do
begin
For j:=1 to n do
write( a[i,j]:4);
writeln
end;
if a[i,j]<0 then ( дальше не знаю подскажите очень нужно!!!)
writeln('отрицательные элементы каждой строки', );
readkey
END.
С массивом разобрался не знаю как :
Вывести на экран отрицательные элементы каждой строки матрицы.
Вот решение:
program massiv;
uses crt;
const m=5;n=5;
var a:array[1..m,1..n]of integer;
i,j,x:integer;
BEGIN
Clrscr;
For i:=1 to m do
For j:=1 to n do
readln(a[i,j]);
For i:=1 to m do
begin
For j:=1 to n do
write( a[i,j]:4);
writeln
end;
if a[i,j]<0 then ( дальше не знаю подскажите очень нужно!!!)
writeln('отрицательные элементы каждой строки', );
readkey
END.
С массивом разобрался не знаю как :
Вывести на экран отрицательные элементы каждой строки матрицы.
организуй проход по всем ячейкам массива и, проходя, проверяй, меньше нуля число или нет.
:confused:
Цитата: Sniffer
организуй проход по всем ячейкам массива и, проходя, проверяй, меньше нуля число или нет.
Я бы с радостью но не знаю как это сделать.....:(
Цитата: Sniffer
Код:
for i:= 1 to m do
begin
for j:= 1 to n do
if a[i,j]< 0 then write(' ',a[i,j]);
writeln;
end;
begin
for j:= 1 to n do
if a[i,j]< 0 then write(' ',a[i,j]);
writeln;
end;
Спасибо большое, очень помог!