354=01100010
872=010101101000
648=010001000
931=110100011
Program n1;
type z= array of integer;
var a:z;
d,n,i,j,x: integer;
begin
n:=0;
while true do
begin
readln(d);
if d=0 then break;
n:=n+1;
setlength(a,n);
a[n-1]:=d;
end;
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i]<a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln(a[1]);
end.
Program Help;
Var i : Word;
Begin
(* 1 способ *)
For i := 100 to 999 do
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
Writeln;
(* 2 способ *)
i := 100;
While i < 999 do
Begin
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
i := i + 1;
End;
Writeln;
(* 3 способ *)
i := 100;
Repeat
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
i := i + 1;
Until i = 999;
Readln;
End.
Ответ:
Массив представляет собой совокупность данных одного типа с общим для всех элементов именем.
Элементы массива пронумерованы, и обращаться к каждому из них можно по номеру. Номера элементов массива иначе называются индексами, а сами элементы массива - индексированными переменными.