🗊Презентация Найти все четные по значению элементы массива из n целых чисел

Найти все четные по значению элементы массива из n целых чисел. Вывести на печать значения элементов и их индекс. Ввод элементов массива производится с клавиатуры. Program massiv; Uses crt; Var: array [1..1000] of integer; I, n: integer; Begin write (‘Введите размер массива’); readln (n); {**Ввод значений элементов массива**} for I:=1 to n do begin write (‘Введите а[‘,I,’]’); read (a[I]); clrscr; end; {**Поиск нужных элементов**} for I:=1 to n do if a[I] mod 2 = 0 then {**вывод рез-в на печать**} writeln (‘a[‘,I,’]=’,a[I]:8, ‘I=’,I); end.

Задача 1: Пусть уk – это число вызовов, которые поступают на АТS за k-тую секунду. Предположим, что уk – случайное число со значение от 0 до 6, которое генерируется формулой уk = trunk(abs(7sin(k))). Создать массив у с десятью элементами (k = 1, …, 10). Вычислить количество вызовов за первые 10 секунд работы АТS и максимальное количество вызовов, которые поступили за одну секунду. Вывести результаты вычисления. program АТS; uses crt; var y : array [1..10] of integer; max, s, i : integer; begin clrscr; max := 0; {предполагаем, что max =0} s := 0; for i := 1 to 10 do begin {Вычисляем количество вызовов} y[i] := trunk(abs(7*sin(i))); {за i-тую секунду} write (‘Количество вызова за’, i, ‘-тую секунду: ‘); writeln (y[i]:5); {Выводим это количество} s := s + y[i]; {Вычисляем количество вызовов} {Вычисляем max значение} if y[i] > max then max := y[i]; end; writeln (‘Количество вызовов за 10 секунд = ’, s:3); write (‘Максимальное количество вызовов за одну ’); writeln (‘секунду =’, max:3); readln; end.