СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО,

+ 0 -

Cat1245

25 мая 2014 г., 7:41:38 (9 лет назад)

const nMax = 15;
var
a:array [1..nMax]  of integer;
i,min,max:integer;
begin
min:=a[1];
max:=a[1];
for i:=1 to nMax do begin
if a[i]>max then
max:=a[i];
if a[i]<min then
min:=a[i];
end;

writeln('max-min=',max-min);

end.

2)

const nMax = 15;
var
a:array [1..nMax] of integer;
i,min:integer;
begin
min:=a[1];
randomize;
for i:=1 to nMax do
a[i] = random(30);

for i:=1 to nMax do
if a[i]<min then
min:=a[i];

end.

+ 0 -

Drumik

25 мая 2014 г., 8:37:19 (9 лет назад)

Ну простейшие задачи, вы сами пробовали решать или сразу сюда запостили?