Помогите с информатикой
Дан массив, состоящий из N целых чисел, количество элементов вводится с клавиатуры. Составить программу, в которой будут реализованы следующие действия:
а) заполнение массива случайными числами и вывод полученного массива на экран;
б) подсчет количества тех элементов массива, значения которых больше заданного числа x (вводит пользователь с клавиатуры) и одновременно кратны 5;
Дан массив, состоящий из N целых чисел, количество элементов вводится с клавиатуры. Составить программу, в которой будут реализованы следующие действия:
а) заполнение массива случайными числами и вывод полученного массива на экран;
б) подсчет количества тех элементов массива, значения которых больше заданного числа x (вводит пользователь с клавиатуры) и одновременно кратны 5;
More Questions From This User See All
Answers & Comments
Verified answer
// PascalABC.Net
var a: array of integer;
N, i, x, count: integer;
begin
write('Введите размер массива: ');
readln(N);
SetLength(a, N);
for i := 0 to N - 1 do
begin
a[i] := random(-20, 20);
write(a[i], ' ');
end;
writeln();
write('Введите x: ');
readln(x);
for i := 0 to N - 1 do
begin
if (a[i] > x) and (a[i] mod 5 = 0) then
inc(count);
end;
writeln('Кол-во подсчитанных элементов: ', count);
end.