Question

Напишите кто-нибудь, на завтра надо, умоляю, только ! я уже 30 раз это посылаю, ! кто сможет, только правильно! кто, что сможет, но надо все, на ! решить в паскале! 1.дано массив из15 элементов. найти максимальныйэлемент массива и минимальный элемент массива. узнать на сколько больше максимальный элемент минимального. 2. дано массив из 15 элементов, заполнить массивслучайными числами, которые не больше 30 и найти минимальный элемент массива

Answer 1

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.