var a:array[1..10] of integer;
b:array[1..10] of integer;
c:array[1..10] of integer;
i:integer;
begin
cls;
for i:=1 to 10 do
begin
a[i]:=random(50);
write(a[i]:4);
end;
writeln;
for i:=1 to 10 do
begin
b[i]:=random(50);
write(b[i]:4);
end;
writeln;
for i:=1 to 10 do
begin
if a[i]<b[i] then c[i]:=a[i] else c[i]:=b[i];
write(c[i]:4);
end;
end.
В компьютере больше функций,чем в калькуляторе
Var i:Integer;
A:array[1..10] of Integer ;
Begin
For i:=1 to 10 do begin
A[i]:=random(26)-5;
Write(A[i], ' ') ;end;
Writeln;
For i:=1 to 10 do begin
If A[i]<0 then A[i]:=abs(A[i])
Else A[i]:=-A[i];
Write(A[i], ' ') end;
End.
var
<span> a,b,c:integer;
</span><span><span> begin
</span>
read(a,b,c);
</span><span> writeln(a,'+',b,'+',c,'=',a+b+c);
</span><span> writeln(a,'*',b,'*',c,'=',a*b*c);
</span><span> writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3:4:3);
</span><span>
end.</span>