• Pascal ABC, сделайте пожалуйста!!!!!
    1. Даны натуральное число n и действительные числа a,b. Составьте программу, которая заполняет одномерный массив последовательности чисел t1, t2,…,tn, где ti=(b-a)/n. Полученный массив вывести на экран.
    2. Даны натуральные числа n, a1,..,an. Составьте программу, которая определяет количество членов последовательности a1,..,an, являющихся нечётными числами.
    3. Даны натуральные числа n, a1,..,an. Составьте программу, которая определяет количество членов последовательности a1,..,an, Кратных 5 и не кратных 3.
    4. Даны натуральные числа n, a1,..,an. Составьте программу, которая определяет количество членов последовательности a1,..,an, с чётными порядковыми номерами и нечётными значениями.
    5. Даны натуральные числа n, a1,..,an. Составьте программу, которая вычисляет сумму тех элементов последовательности a1,..,an, которые нечётны и отрицательны
    6. Даны натуральные числа n, a1,..,an. Составьте программу, которая вычисляет среднее арифметическое элементов последовательности a1,..,an,
    7. Даны натуральные числа n, a1,..,an. Составьте программу, которая находит максимальный и минимальный элементы.
    8. Даны натуральные числа n, a1,..,an. Составьте программу, которая находит максимальный и минимальный элементы массива и выводит их порядковые номера.
    9. Даны натуральные числа n, a1,..,an (В диапазоне от 0 до 100). Составьте программу, которая находит максимальный и минимальный элементы и выводит среднее арифметическое этих чисел.
    10. Даны натуральное число n и последовательность целых чисел a1,..,an. Составьте программу, которая определяет количество пар соседних положительных чисел в данной последовательности.
    11. Даны натуральное число n и одномерный массив, состоящий из n элементов. Составьте программу, которая в заданном массиве положительные элементы увеличивает вдвое, а отрицательные заменяет на значения их индексов. Полученный массив вывести на экран.

Ответы 2

  • 11) Program n1; var a:array[1..100] of real; n,i:integer; begin read(n); for i:=1 to n do read(a[i]); for i:=1 to n do if a[i]>0 then a[i]:=2*a[i]; for i:=1 to n do if a[i]<0 then a[i]:=i; for i:=1 to n do write(a[i],' '); end.
    • Автор:

      codichen
    • 6 лет назад
    • 0
  • воу, спасибо
  • Добавить свой ответ

Войти через Google

или

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

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

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