Var
aa[1..1000, 1..1000] : array of integer;
i, j, m, n : integer;
r : boolean;
begin
{считываем массив}
readln(m, n);
for i := 1 to m do
for j := 1 to n do
read(aa[i, j]);
{ r равен true до первого элемента, равного 0}
r := true;
i := 0;
while i <= m and r = true do
begin
i := i + 1;
j := 0;
while j <= n and r = true do
begin
j := j + 1;
if aa[i, j] = 0 then
r := false;
end;
end;
writeln(i, ' ', j);
end.
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
function Sod(n:integer):integer:=
n.ToString.Select(c->StrToInt(c)).Sum;
begin
var n:=ReadInteger('n=');
var max:=0;
var m,mmax:integer;
for var i:=1 to n do begin
m:=ReadInteger('Число '+IntToStr(i)+': ');
var s:=Sod(m);
if s>max then begin max:=s; mmax:=m end
end;
Writeln('Максимальная сумма ',max,' в числе ',mmax)
end.
<u><em>Тестовое решение:</em></u>
n= 5
Число 1: 3243
Число 2: 10000004
Число 3: 23536
Число 4: 9942
Число 5: 43354
Максимальная сумма 24 в числе 9942
100010,011101=42,35 (вос. сис.)
10010,011101=22,1D (шест. с.)
111 111 111 000 001=77701(в.с)
0111 1111 1100 0001(добавляем 0)=7FC1 (ш.С.)
0,000110101=0,065(в.с) (доб. 00)
0,0110101=0,35(ш.с.)
0,11 100 110 101=0,3465(в.с.)
0,111 0011 0101=0,735(ш.с.)
uses crt;
var a:array[1..99,1..99] of integer;
m,n,s,i,j:integer;
begin
write('Введите m и n: ');
readln(m,n);
writeln('Исходная матрица: ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(10-(-10)+1)-10;
write(a[i,j]:3);
end;
writeln;
end;
s:=0;
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j]<0 then s:=s+1;
end;
if s=2 then begin writeln('Строка с двумя отрицательными элементами есть'); halt; end; {если нужная строка найдена, программа выдаёт надпись о её нахождении и немедленно завершается}
s:=0;
end;
writeln('Строки с двумя отрицательными элементами нет');
end.
Блок-схема решения задачи 2 - в прилагаемом файле.