сервис вопросов и ответовСоставьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет среднее арифметическое нечётных чисел.
10-11 класс|
|
Nica170103
07 мая 2015 г., 14:43:31 (8 лет назад)
Kruger
07 мая 2015 г., 15:47:51 (8 лет назад)
Program n1;
Uses CRT;
Const n=40;
Var a:array[1..n] of integer;
i,s,k: integer;
begin
ClrScr;
For i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
if a[i] mod 2=1 then
begin
k:=k+1;
s:=s+a[i];
end;
end;
Writeln('Summa =',s,' Kolvo =',k,' Srednee arifm = ',s/k:4:4);
readln
end.
Ответить
Другие вопросы из категории
Дана
целочисленная прямоугольная матрица. Определить количество столбцов, содержащих
хотя бы один нулевой элемент.
Примечание: Размеры
массивов задаются именованными константами. Значения элементов массивов
вводятся с клавиатуры, генерируются случайным образом или инициализируются в
программе (значения по умолчанию). Способ задания элементов массива выбирается
пользователем. Все операции над массивами выполняются отдельными функциями.
Помогите плиззз на Pasca ABC
Читайте также
помогите пажалуйста. очень надо решить!!!!! составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет
среднее арифметическое нечётных чисел.
Люди помогайте!!!))) Паскаль!!!
1)Составьте программу, которая заполняет массив 10-ю случайными целыми числами в диапазоне [1..20] и выводит на экран элементы массива в нечетными значениями.
2)Составьте программу заполнения массива из десяти чисел следующими значениями
а) 2 4 6 8 10 (+ 2)
б)3 6 9 12 15 (+3)
Напишите прог-у на паскале... ПЛИИИИИИИИИИЗ 1)даны действительные числа a1, b1, c1, a2, b2, c2. Составьте программу, которая находит координаты точки
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
Вы находитесь на странице вопроса "Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет среднее арифметическое нечётных чисел.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.