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.
Var a:array[1..10] of Integer ;
p,i:integer;
Begin
p:=1;
WriteLn('Массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
if a[i]<0 then p:=p*a[i];
end;
WriteLn;
WriteLn('Произведение отопительных элементов = ',p)
end.
Var ch:integer;beginread(ch);while ch>0 do begin if (ch mod 2)=0 then begin ch:=ch div 2; write(2); end else begin ch:=ch-1; write(1); end; end;end.
В задаче не уточнили, в какой кодировке запись.
Если считать за 1 символ 1 байт, то получится 73 байта.
Если считать за 2 символ 2 байта, то 73*2=146 байт