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

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

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

Ответы 6

  • Да, так и есть
    • Автор:

      cummings
    • 6 лет назад
    • 0
  • Мне просто надо было 2 разные программы.)
    • Автор:

      chicagnhs
    • 6 лет назад
    • 0
  • Вы можте из этого решения убрать 3 строки и получите первую задачу
  • Предпоследняя строка и 2 строки с условием if a[i] ...
    • Автор:

      coreen
    • 6 лет назад
    • 0
  • спасибо большое)
    • Автор:

      hammond
    • 6 лет назад
    • 0
  • // task 1,2const 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]<min  then min:=a[i];  end;  writeln();  //Вывод в обратном порядке  for i:=1 to 15 do write(a[n-i+1]:5);  writeln();  writeln ('Разность max-min ',max-min); end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years