Помогите с Pascalem ABC. Создать массив из 12 Случайных чисел со значениями от -23 до
23 Провести его вычислить количество и Сумму чисел кратных 5.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Галямина
var i, s: integer;
n: real;
d: array [1..12] of integer;
begin
for i:=1 to 12 do
begin
d[i]:= random(47)-23;
write(d[i], ' ');
if d[i] mod 5 = 0 then
begin
s := s + 1;
n:= n+d[i];
end;
end;
writeln('Количество чисел: ', s,'. Сумма чисел: ', n, '.')
end.
n: real;
d: array [1..12] of integer;
begin
for i:=1 to 12 do
begin
d[i]:= random(47)-23;
write(d[i], ' ');
if d[i] mod 5 = 0 then
begin
s := s + 1;
n:= n+d[i];
end;
end;
writeln('Количество чисел: ', s,'. Сумма чисел: ', n, '.')
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
