1) дан целочисленный массив из 30 элементов. элементы массива могут принимать значения от 0 до 1000. опишите на языке или на одном из языков программирования алгоритм, который находит и выводит среднее арифметическое всех элементов массива, имеющих нечётное значение. гарантируется, что хотя бы один такое элемент в массиве есть. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. паскаль естественный язык const n=30; var a: array [1..n] of integer; i, x, y: integer; s: real; begin for i: =1 to n do readln(a[i]); end. объявляем массив a из 30 элементов. объявляем целочисленные переменные i, x, y и вещественную переменную s. в цикле от 1 до 30 вводим элементы массива a с 1-го по 30-й. в качестве ответа вам необходимо фрагмент программы (или описание алгоритма на естественном языке), который должен находиться на месте многоточия. вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, borland pascal 7.0) или в виде блок-схемы. в этом случае вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии (например, в образце, записанном на естественном языке
Ответы
Ябы сделал иначе for i: = 1 to n do begin if a[i] mod 2 = 1 then begin x: =x+1; y: =y+a[i]; end; end; s = y/x; writeln(s); немного логичнее.
Program pervoe; var a,b,c,c1,d,max: integer; beginreadln(a); b: =a div 100 ; c: = a mod 10; c1: = a mod 100; d: = c1 div 10; if(b > c) then max: = belse max: = c; if (max < d) then max : = d; writeln(max); readln; end.2)program vtoroe; var a,b,c,c1,d,pro: integer; begin readln(a); b: =a div 100 ; c: = a mod 10; c1: = a mod 100; d: = c1 div 10; pro: = b * c * d ; if (pro > 99) and (pro < 1000) then writeln('yes'); readln; end. 3)program trete; var a,b,c,d,e,f,g,j,sum1,sum2: integer; begin readln(a); b: =a div 1000 ; {1} c: =a mod 10; {4} e: =a mod 1000; {234} f: =e div 100; {2} g: =e mod 100; {34} j: =g div 10; {3} sum1: = b + f ; sum2: = j + c; if (sum1 = sum2) then writeln('yes') else writeln('no'); readln; end.
1) 36 = 3q + 6 21 = 2q + 1 15 = q + 5 3q + 6 = (2q + 1) + (q + 5) = 3q + 6 - тождество! тогда такое равенство можно записать в любой системе счисления, в которой есть цифра 6, т.е. основание системы счисления q > =7 2) 100 = q^2 33 = 3q + 3 22 = 2q + 2 16 = q + 6 5 = 5 q^2 = (3q + 3) + (2q + 2) + (q + 6) + 5 q^2 = 6q + 16 q^2 - 6q - 16 = 0 q1 = 8; q2 = -2 в системе с основанием -2 не может быть троек, поэтому ответ q = 8 3) 100 = q^2 1000 = q^3 по условию 2q^2 = q^3, откуда q = 2 4) да, может, например, в системе счисления с основанием 2.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
6. Как в поисковой машине Яndex осуществить поиск точной формы слов?
Автор: khvorykhphoto
Напишите формулу решения данной системы для Microsoft Excel
Автор: Chistova-Dmitrii1162
Вывести на экран последовательность чисел используя цикл while python
Автор: Андреевнатест707
Написать программу в паскале вводим число, проверить извлекается из него корень?
Автор: Svetlana290419
Розв' язування компеьентних задач полягає у
Автор: info6
Написать нимаев сэнгэлиг александрович 19 2005 .10
Автор: tigran87-87
Графы в информатике решите, файл закреплен
Автор: Альберт Татьяна