Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Упражнение 33. Зарезервировать массив на 5 чисел. Ввести значения элементов массива с клавиатуры, вывести их на экран по очереди и найти их сумму. | |
Program mas1; Const n=5; Var a:array[1..n] of integer; S,i:integer; Begin Writeln (‘Введите 5 элементов’); {ввод 5 эл-тов с клавиатуры} for i:=1 to n do begin write('a[', i, ']='); read (a[i]); end; {вывод эл-тов и их суммирование} S:=0; For i:=1 to n do Begin write(a[i]:4); S:=s+a[i]; End; Writeln (‘Сумма=’, s); End. |
Чтобы при заполнении массива освободить пользователя от ручного ввода чисел, можно использовать способность компьютера вырабатывать случайные числа.
Функция Random(x) выдает целое случайное число от 0 до (x-1). Например,
Random(10) выдаст целое случайное чило от 0 до 9 (т.е. любое из чисел 0-9).
Если мы хотим получить число от a до b, то Random(b-a+1)+a.
Упражнение 34. получить случайное число S из интервала:
А) от 1 до 100; Б) от -5 до 10; B) от 18 до 23.
Упражнение 35. Целочисленный массив заполнить случайными целыми числами Є [1, 100] и вывести на экран. Найти среднее арифметическое всех элементов и количество элементов с четными индексами.
Program massiv; Const N=10; Var A: array [1..N] of integer; S: real; {среднее арифметическое элементов} I: integer; {счетчик индексов элементов} K: integer; {количество эл-тов с нечетн. индек} Begin {цикл заполнения и вывода массива} For i:=1 to N do Begin A[i]:=random(100)+1; Write (A[i]: 4); End; S:=0; K:=0; {цикл подсчета суммы элементов и кол-ва элементов с нечетными индексами} For i:= to N do Begin If I mod 2=0 then K:=K+1; S:=S+A[i]; End; {вычислим среднее арифметическое N элементов} S:=S/N; Writeln(‘Среднее арифм= ’, S); Writeln (‘Кол-во Эл-тов с неч. Инд=’, K); End. |
Домашние вопросы и задачи:
№ 48. Случайное число из какого диапазона выдает следующее выражение:
А) random(50) +1; Б) random(10) -4; B) random(7) +10.
№ 49. Целочисленный массив заполнить случайными целыми числами Є [10, 20] и вывести на экран. Найти сумму элементов нечетными значениями. Посчитать количество элементов, значения которых больше 15, а индексы кратны 3. Составить программу и блок-схему.
Дата публикования: 2014-10-30; Прочитано: 1011 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!