program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,s,n,p,k: integer;
m:mas;
begin
randomize;
for i:=1 to 10 do
begin
m[i]:=random(45)+1;
write(m[i], ' ');
s:=S+m[i];
end;
writeln;
write( s);
end.
program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,s,n,p,k: integer;
m:mas;
begin s:=1;
randomize;
for i:=1 to 10 do
begin
m[i]:=random(5)+1;
write(m[i], ' ');
s:=S*m[i];
end;
writeln;
write( s);
end.
program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,n,p,k: integer;
m:mas; s:real;
begin s:=0;
randomize;
for i:=1 to 10 do
begin
m[i]:=random(10)+1;
write(m[i], ' ');
s:=S+m[i];
end;
writeln;
write( s/10);
end.
program Max_Element;
var M: array [1..20] of byte;
max, i, n: byte;
begin
randomize;
for i:=1 to 20 do
begin
m[i]:=random(40);
write (m[i],’ ‘);
end;
writeln;
max:=m[1]; {считать 1-й элемент максимальным}
n:=1; {запомнить номер максимального элемента}
for i:=2 to 20 do {проверить все элементы, начиная со второго}
begin
if m[i]>max then {если очередной (i-й) элемент массива больше чем max}
begin
max:=m[i]; {то считать максимальным i-й элемент}
n:=i; {и запомнить его порядковый номер}
end;
end;
writeln (‘Максимальный элемент: ‘,max);
writeln (‘Он расположен на ‘,n,’ месте‘)
end.
