Помогите составить программы в паскале: 1. сформировать массив из 15 элементов случайным...

Question

Помогите составить программы в паскале:

1. сформировать массив из 15 элементов случайным образом и вывести его на элементы на экран в обратном порядке.

2. дан одномерный массив найдите разность наибольшего и наименьшего элемента этого массива

Answer 1

// task 1,2
const n= 15;
var a:array[1..15]of integer;
    i,min,max:integer;
begin
  min:=99999;
  max:=0;
  //Заполняем массив случайными числами
  //И выводим его
  for i:=1 to 15 do begin
    a[i]:=random(100);
    write(a[i]:5);
    if a[i]>max then max:=a[i];
    if a[i]  end;
  writeln();
  //Вывод в обратном порядке
  for i:=1 to 15 do write(a[n-i+1]:5);
  writeln();
  writeln ('Разность max-min ',max-min);
end.

Comments

Не пойму это получается 2 задачи в одной?

---

Да, так и есть

---

Мне просто надо было 2 разные программы.)

---

Вы можте из этого решения убрать 3 строки и получите первую задачу

---

Предпоследняя строка и 2 строки с условием if a[i] ...

---

спасибо большое)