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]<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]<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]<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]<0 then
begin
writeln(i);
break;
end;
writeln;
end;
end.