123-четырехричная(4) 10=302
222-трехричная(3) 10=211
111-двухричная(2) 10=1111
241-пятеричная(5) 10=400
1)const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;
n,i:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do write(a[i],' ');writeln;
<span>end.
А вторую и третью я объединила:
</span>const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;i,min:integer;
begin
randomize;
for i:=1 to 5 do a[i]:=random(101)+0;
for i:=1 to 5 do write(a[i],' ');writeln;
min:=a[1];
for i:=2 to 5 do if a[i]<min then min:=a[i];
writeln(min);
end.
Программа.................................................
Ну, например, так:
uses Crt;
const n=100;
var i: integer;
begin
ClrScr;
WriteLn (' Tabliza kwadratow: ');
for i:=1 to n do
begin
Write (i,'=',i*i, ' ':4);
if (i mod 5=0) then
WriteLn;
end;
WriteLn;
ReadLn;
end.