сервис вопросов и ответовСоставьте программу , которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
5-9 класс|
|
а) среднее арифметическое нечётных чисел
Reedok
29 янв. 2014 г., 23:00:58 (10 лет назад)
ЛОЛ68
30 янв. 2014 г., 0:38:22 (10 лет назад)
Program Task;
Var a: Array [1..40] of Integer;
b: Real;
c, d, e, i: Integer;
Begin
Randomize;
For i := 1 To 40 Do
a[i] := Random(20 + 1);
WriteLn('Массив:');
For i := 1 To 40 Do
Write(a[i], ' ');
WriteLn;
For i := 1 To 40 Do
Begin
If a[i] Mod 2 = 1 Then
Begin
b := b + a[i];
c := c + 1;
End;
If a[i] <= 10 Then
d := d + a[i];
If a[i] Mod 3 = 0 Then
e := e + a[i];
End;
WriteLn('Среднее арифметическое нечётных чисел: ', (b / c):2:2);
WriteLn('Сумма чисел, не превышающих 10: ', d);
WriteLn('Сумма чисел кратных 3: ', e);
ReadLn;
End.
Ответить
Другие вопросы из категории
Помогите плз решить задачи в qbasic
1.Даны два действительных числа A и B. Вывести первое число, если оно больше второго, и оба числа, если это не так.
Для шифрования некоторого значения решили использовать изображение часов с циферблатом и тремя стрелками (часовой, минутной и секундной). В качестве
значений цифр решили брать дискретные положения этих стрелок (произвольные, не зависящие друг от друга - нет механической связи) относительно часовой шкалы (12 делений - значения берутся от 0 до 11, вертикальное положение любой стрелки соответствует нулевому значению) и закодированные в соответствующей системе счисления, то есть в системе счисления использующей строго такое же количество цифр. При шифровании получается число, каждый из разрядов которого может принимать значение от 0 до 11. Младший разряд зашифрованного числа соответствует значению циферблата, указываемому секундной стрелкой, средний - минутной, старший - часовой. Зашифрованное число перевели в десятичную систему счисления. Какое значение получилось, если на циферблате секундная стрелка указывала на - 2, минутная - на 3, часовая - на цифру 4? В ответе напишите значение зашифрованного десятичного числа
Пожалуйста с решением
Модем передает сообщение со скоростью 28800 бит/сек. За сколько секунд произойдет передача цветного изображения размером 640х480 пикселей, если каждый пиксель весит 3 байта.
Варианты ответов:
1)256
2)625
3)526
4)265
Читайте также
Помогите,пожалуйста,написать программу по информатике.Вот такое условие:
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
Очень надо
Составьте программу , которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет их сумму
Составьте программу, которая формирует массив из 40 случайных целых чисел от 2 до 20 и вычисляет: а) среднее арифметическое нечётных чисел
>б) сумму чисел, не превышающих 10
в) сумму чисел, кратных трём
плииз, каждую задачу отдельно.. если не уверенны не пишите.. срочно!!
Вы находитесь на странице вопроса "Составьте программу , которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.