сервис вопросов и ответовРебят, помогите очень срочно. Нужно написать программу на паскале. Вычислить среднеарифметическое четных элементов массива C(10), не меньших 10
5-9 класс|
|
Akimovaadelya09
18 янв. 2014 г., 3:03:15 (10 лет назад)
89168489496
18 янв. 2014 г., 4:43:58 (10 лет назад)
var
c:array[1..10] of integer;
SrAr:real;
k, i, s:integer;
begin
s:=0;{Обнуляем счетчик элементов(к) и сумму(s)}
k:=0;
randomize;
for i:=1 to 10 do {заполняем массив}
c[i]:=random(50);
for i:=1 to 10 do
if (c[i] mod 2=0) and (c[i]>10) then {если элемент массива четный и больше 10 увеличиваем счетчик к, увеличиваем сумму s}
begin
k:=k+1;
s:=s+с[i];
end;
SrAr:=s/k;
for i:=1 to 10 do {выводим массив}
write(c[i], ' ');
writeln;
writeln('Sr.Arifmeticheskoe=', SrAr:5:2);
end.
Ответить
Другие вопросы из категории
Помогите плиззз :)
В классе 100011( двоичное число) человек, девочек 1111( двоичное число). Сколько в классе мальчиков?
Заранее Спасибо)
Читайте также
РЕШИТЕ ХОТЬ ЧТО-НИБУДЬ!!!:з 1.Линейные программы Напишите программу на ШАЯ.Вычислите значения следующих выражений: f=t*t/2+t
2.Условный оператор(ветвление)
Нарисуйте блок-схему.Дано два числа.Верно ли, что он равны?
3.Циклы
Напишите программу на Паскале. Выведите на экран табицу умножения на 4 в виде 1+4=4,2+4=8,....9*4=36.
4.Одномерные массивы
Напишите программу на Паскале.Подсчитайте количество максимальных элементов массива А [1..12].
5.Двумерные массивы
Напишите программу на Паскале. создать массив случайны чисел В[1..6,1..6].Все элементы массива, расположенные выше главной диагонали сделать равными О.Вывести исходный и исправленный массивы.
Пожалуйста помогите создать какую нибудь полезную программу на паскаль , срочно нужно до понедельника, чтобы в этой программе были все темы за 8 класс,
read.writeln.else.to.if и тд которые сможете
Вот пример идеи для программы, в академию поступают какое то количество учеников, нужно написать сколько учеников сдали документы, сколько пришли на экзамен, и сколько учеников кто прошло и не прошло
возможно не возможно создать программу на этой идее, тогда прделагайте свои со своими программами , пожалуйста помогите!
Ребят) Помогите с программой на Паскале, пожалуйстаа)
Нужно написать программу, которая выводит на экран все двухзначные числа, делящиеся на 3 или на 5 (использовать операции целочисленного деления div или mod)
Пожалуйста помогите!! очень срочно, нужно написать программу скорей всего мне кажется в паскале
1. Writel(' вести стоимость перчатки наприм')
read (x)
2 стоимость сумки- наприм.
3.стоимость ремня- наприм.
4.если общая сумма больше 800р, то вывести сумму с учетом 10% скидки
5.если сумма меньше 800р, то вывести сумму
Помогите пожалуйста очень нужно, благодарю!!!
народ мне срочно нужно написать программу на языке паскаль
суть программы вычислять по ответам на вопросы (да,нет) есть ли у вас игровая зависимость,
Вопросы:
1 В день вы играете более 2-ух часов?
2 Становитесь ли вы раздражительным после игры?
3 Из-за компьютерной игры вы пренебрегает сном?
4 Для игры в компьютерные игры вы жертвует временем, ранее проводимым с семьёй, друзьями?
5 вы приобретаете проблемы в учёбе, на работе из-за компьютерной игры но продолжаете в неё играть?
6 После компьютерной игры у вас возникает сухость слизистых глаз?
7 Человек испытывает потребность проводить за игрой всё больше времени?
8 Из-за компьютерной игры человек пренебрегает личной гигиеной?
9 Во время компьютерной игры человек полностью отрешается от реальной действительности, переносясь целиком в мир игры
народ кароче если в ответах да повторяется более чем 2 раза то программа должна вывести "есть вероятность что у вас есть игровая зависимость"
если нет то "пока вам не стоит беспокоиться"\
за ранние огромное спасибо
Вы находитесь на странице вопроса "Ребят, помогите очень срочно. Нужно написать программу на паскале. Вычислить среднеарифметическое четных элементов массива C(10), не меньших 10", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.