1)Дан одномерный массив. найти сумму элементов принадлежащих промежутку от А до В (А и В вводятся с клавиатуры) 2)одномерный массив заполнить n случайными целыми числами находящимися в интервале от 0 до 15. Найти произведение м...
1)Дан одномерный массив. найти сумму элементов принадлежащих промежутку от А до В (А и В вводятся с клавиатуры)
2)одномерный массив заполнить n случайными целыми числами находящимися в интервале от 0 до 15. Найти произведение максимального и минимального элемента массива. Вывести массив, числа должны распологатся в строке.
3)Составить программу используя оператор WHILE
Вывести на экран , кратные К из промежутка (А,В). Числа К,А,В задаёт пользователь
4)Составить программу используя оператор FOR
Дана последовательность из N целых чисел. Определить произведение элементов этой последовательности
Гость
Ответ(ы) на вопрос:
Гость1)Program massiv; Var mas:array[1..20] of integer; a,b,i,sum:integer; Begin sum:=0; For i:=1 To 20 Do begin mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток} write(mas[i],' '); end; Writeln('Введите a,b'); Readln(a,b); For i:=1 To 20 Do begin if (mas[i]>a) and (mas[i]max Then max:=mas[i]; if mas[i]20 Dobeginif (mas[i]>a) and (mas[i]
Не нашли ответ?
Похожие вопросы