A матрица(массив)
m и n границы матрицы
min:integer; минимальное. indexmin:string
max:integer; максимальное. indexmax:string
min:=a[1,1];
max:=a[1,1];
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]>max then begin max:=a[i,j]; indexmax:=inttostr(i)+' '+inttostr(j); end;
if a[i,j]<min then begin min:=a[i,j]; indexmin:=inttostr(i)+' '+inttostr(j); end;
end;
writeln(max,indexmax);
writeln(min,indexmin);
var a:array[1..10] of integer;
i,s:integer;
Begin
randomize;
for i:= 1 to 10 do begin
a[i]:= random(100);
s:=s+a[i];
end;
writeln(s);
End.
var a:array[1..10] of integer;
i,mk,pk,s,p:integer;
Begin
randomize;
p:=1;
for i:= 1 to 10 do begin
a[i]:= random(30+10)-10;
if a[i]>=0 then begin
pk:=pk+1;
s:=s+a[i];
end
else begin
mk:=mk+1;
p:=p*a[i];
end;
end;
writeln(pk,s,mk,p);
End.
10 символов
32 = 2^5 => 5 бит/символ
10 * 5 = 50 бит
11281-4526=6755
345275:9865=35
6755:35=193