Друга ищи, а найдёшь - береги.
Старый друг лучше новых двух.
program massiv;
var
a:array[1..10] of integer;
i,b,c : integer;
begin
writeln ('posledovatelno vedity elementi massiva (10 chisel)');
for i:=1 to 10 do
readln(a[i]);
b:=a[1];
for i:=1 to 10 do
begin
if a[i]>b then
b:=a[i];
end;
c:=a[1];
for i:=1 to 10 do
begin
if a[i]<c then
c:=a[i];
end;
writeln('raznost mesdu naibolshim i naimenshim elementom massiva =',b-c);
readln;
end.
p.s если нужны пояснения то в личку
Газета- визуальная
Книга визуальная,
Компьютер, визуальная слуховая
Var
r:real;
function preob(n:integer):real;
begin;
preob:=sqrt(n)+n;
end;
begin
r:=preob(5)/2+preob(3)/2+preob(7)/2;
writeln(r);
<span>end.</span>