Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A
, B ] и определяет количество положительных трёхзначных чисел в этом массиве, которые не делятся на 5. Входные данные Входная строка содержит три числа: границы диапазона случайных чисел A и B , а также размер массива N . Все числа разделены пробелами. Гарантируется, что 0 < N ≤ 10000 . Выходные данные В первой строке программа должна вывести N элементов построенного массива, разделив их пробелами, а во второй строке – количество трёхзначных чисел в массиве, которые не делятся на 5. Примеры входные данные 50 200 10 выходные данные 50 54 180 80 91 151 98 74 106 114 3
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Ваган
var c:array[1..10000] of integer;
n, k, S, a, b: integer;
q: real;
begin
read(a, b, n);
k:=0; S:=S;
for var i:=1 to n do begin
c[i]:=random(a,b);
k:=k+1;
S:=S+c[i];
write(c[i], ' ');
end;
q:=S/k;
writeln(q:17:3);
end.
n, k, S, a, b: integer;
q: real;
begin
read(a, b, n);
k:=0; S:=S;
for var i:=1 to n do begin
c[i]:=random(a,b);
k:=k+1;
S:=S+c[i];
write(c[i], ' ');
end;
q:=S/k;
writeln(q:17:3);
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00