var X: array [1..10] of integer; a,s,i: integer; begin randomize; write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)'); readln(s); case s of 1: begin writeln('Введите 10 элементов массива: '); for i:= 1 to 10 do readln(X[i]); a:=X[1]; for i:= 1 to 10 do if a < X[i] then a:=X[i]; writeln('Максимальный элемент: ',a); end; 2: begin writeln('Массив: '); for i:= 1 to 10 do begin X[i]:=random(101); write(X[i]:4); end; writeln; a:=X[1]; for i:= 1 to 10 do if a < X[i] then a:=X[i]; writeln('Максимальный элемент: ',a); end; end; end.
function summdel(x:integer):integer; //результат - сумма делителей х var k,sum:integer; begin sum:=0; for k := 1 to x div 2 + 1 do if x mod k = 0 then sum:= sum+k; summdel:=sum; end;
begin writeln('Введите границы a,b '); readln(a,b); maxsumm := 1; max := 1; for i := a to b do begin if summdel(i) > maxsumm then begin maxsumm:= summdel(i); max := i; end; end; writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max) end.
X: array [1..10] of integer;
a,s,i: integer;
begin
randomize;
write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)');
readln(s);
case s of
1: begin
writeln('Введите 10 элементов массива: ');
for i:= 1 to 10 do readln(X[i]);
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
2: begin
writeln('Массив: ');
for i:= 1 to 10 do
begin
X[i]:=random(101);
write(X[i]:4);
end;
writeln;
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
end;
end.