Uses crt; var a,b:array[1..100] of integer; i,j,k,n:integer; procedure rmassr; begin for i:=1 to n do begin a[i]:=random(10); end; end; procedure rmassy; begin for i:=1 to n do begin readln(a[i]); end; end; procedure rmass(); begin for i:=1 to n do begin write(a[i],' '); end; end; procedure newmass; begin for i:=1 to n do begin if a[i] > 0 then b[i]:=a[i]; end; for i:=1 to n do begin j:=j+b[i]; end; writeln('summa = ',j); end; begin clrscr; randomize; write('длина массива '); readln(n); write('1-random; 2-в ручную'); readln(k); if k = 1 then rmassr() else rmassy(); rmass(); writeln(); newmass(); readln end.
Const n = 15; var a: array[1..n] of integer; i, j, m: integer; begin // генерация и вывод randomize; for i := 1 to n do a[i] := Random(19)-8; for i := 1 to n do write(a[i], ' '); writeln;
// Сортировка for i := 1 to n-1 do begin m := i; for j := i+1 to n do if a[j] < a[m] then m := j;
if m <> i then begin j := a[m]; a[m] := a[i]; a[i] := j; end; end; for i := 1 to n do write(a[i], ' '); writeln;
// поиск наибольшей разности m := a[2] - a[1]; for i := 3 to n do if a[i] - a[i-1] > m then m := a[i] - a[i-1]; writeln ('разность = ', m); end.
var a,b:array[1..100] of integer; i,j,k,n:integer;
procedure rmassr;
begin
for i:=1 to n do begin
a[i]:=random(10);
end;
end;
procedure rmassy;
begin
for i:=1 to n do begin
readln(a[i]);
end;
end;
procedure rmass();
begin
for i:=1 to n do begin
write(a[i],' ');
end;
end;
procedure newmass;
begin
for i:=1 to n do begin
if a[i] > 0 then b[i]:=a[i];
end;
for i:=1 to n do begin
j:=j+b[i];
end;
writeln('summa = ',j);
end;
begin
clrscr;
randomize;
write('длина массива '); readln(n);
write('1-random; 2-в ручную'); readln(k);
if k = 1 then
rmassr()
else rmassy();
rmass();
writeln();
newmass();
readln
end.