сервис вопросов и ответовРебят,помогите пожалуйста,ибо меня завтра учитель информтики пристрелит.Составить программу,которая формирует массив из 40 случайных целых чисел от 0
5-9 класс|
|
до 20 и вычисляет:
а)сумму нечётных чисел;
б)сумму чисел,кратных 3
123Лера123
26 июня 2014 г., 12:56:18 (9 лет назад)
Tamilalider
26 июня 2014 г., 14:15:27 (9 лет назад)
Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 var m:array[1..40]of integer; i:byte; a,ka,b,c:integer; begin a:=0;ka:=0; //задание А b:=0; //задание Б c:=0; //задание В for i:=1 to 40 do begin m[i]:=random(21); if m[i] mod 2<>0 then begin ka:=ka+1; a:=a+m[i]; end; if m[i]<=10 then b:=b+m[i]; if m[i] mod 3=0 then c:=c+m[i]; end; for i:=1 to 40 do if i=1 then write('M[',m[i],',') else if i=40 then writeln(m[i],']') else write(m[i],','); if ka=0 then ka:=1; writeln; writeln('Среднее арифметическое нечетных чисел=',a/ka); writeln('Сумма чисел не превышающих 10=',b); writeln('Сумма чисел, кратных 3=',c); end.
Ответить
Другие вопросы из категории
Помогите с задачей на pascal abc - на теме отсутвовал... Задача: НА ЗАДАЧУ ДАНО ТРЕХЗНАЧНОЕ ЧИСЛО, РАВЕН ЛИ КВАДРАТ ЭТОГО ЧИСЛА
СУММЕ КУБОВ ЕГО ЦИФР. Помогите, пожалуйста
Ребяяят,очень нужно.
Вывести true,если в заданном трехзначном числе А есть хотя бы одна четная цифра,false-в противном случае. Нужно описать задачку,блок-схему и программку) или хотя бы что-то из перечисленного)
однажды в Артеке за круглым столом оказалось пятеро ребят родом из москвы,санкт-петербурга,новгорода,перми и томска:Юра,Толя,Алеша,Коля и Витя.Москвич
сидел между томичем и Витей,санкт-петербуржец-между Юрой и Толей,а напротив него сидели пермяк и Алеша.Коля никогда не был в Санкт-петербурге,Юра не бывал и Москве и Томске,а томич с Толей регулярно переписываются. Определите в каком городе живет каждый из ребят.
Составить программу вычисления длины круга и площади круга, если радиус равен 5,4
Помогите пожалуйста очень срочно надо.
Читайте также
Помогите,пожалуйста,написать программу по информатике.Вот такое условие:
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
Составьте программу,которая формирует массив из 15 случайных целых цифр от -20 до 20 и меняет местами значения первого и последнего элементов
массива.На экран выводятся исходные и преобразованные значения.Надо очень СРОЧНО!!!!!!!!!!!!!!!!!!!!!!
Решите пожалуйста программу в паскале:Составить программу, которая формирует массив из 10 случайных чисел от -30 до 30 и если третий элемент больше нуля,
то поменять местами третий и пятый элементы, если третий элемент равен нулю, то увеличить оба эти элементы в 2 раза, иначе третий и пятый элементы сохраняют прежние значения.
Вы находитесь на странице вопроса "Ребят,помогите пожалуйста,ибо меня завтра учитель информтики пристрелит.Составить программу,которая формирует массив из 40 случайных целых чисел от 0", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.