1)Дан одномерный массив. найти сумму элементов принадлежащих промежутку от А до В (А и В...

Question

1)Дан одномерный массив. найти сумму элементов принадлежащих промежутку от А до В (А и В вводятся с клавиатуры)

2)одномерный массив заполнить n случайными целыми числами находящимися в интервале от 0 до 15. Найти произведение максимального и минимального элемента массива. Вывести массив, числа должны распологатся в строке.

3)Составить программу используя оператор WHILE
Вывести на экран , кратные К из промежутка (А,В). Числа К,А,В задаёт пользователь

4)Составить программу используя оператор FOR
Дана последовательность из N целых чисел. Определить произведение элементов этой последовательности

Answer 1

1)Program massiv;

Comments

2) Program massiv; Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin For i:=1 To 20 Do begin mas[i]:= random(15); write(mas[i],' '); end; Writeln; min:=30000; max:=0; For i:=1 To 15 Do begin if mas[i]>max Then max:=mas[i]; if mas[i]<min Then min:=mas[i]; end; pr:=min*max; Writeln(pr); end.

---

только скопируй аккуратно в среду программирования