Найти
10-11 класс
|
максимальный элемент и его номер в
последовательности в паскале
var
k,i:integer;
x,max:real;
begin
for k:=1 to 10 do
begin
if k mod 2 <>0 then
x:=k/(1+k)
else
x:=sqr(k)/(1+sqr(k));
if x>max then
begin
max:=x;
i:=k;
end;
end;
writeln(max,' N: ',i);
end.
Другие вопросы из категории
отрицательных чисел из массива А, состоящего из N элементов. Задача-3: Правда ли что слово начинается и заканчивается на одну и ту же букву? Задача-4 В файле хранится 2 числа. Найти их сумму, разность и среднее арифметическое. Результат вывести на экран. Пожалуйста от начала и до конца, а не только середину программы....
желательно с описанием!
Заранее спасибо!
символов символов содержал преданный текст, если известно, что он был представлен в кодировке UNICODE.
Подробное решение
Написать программу, удаляющую из записи числа все чётные цифры.
Читайте также
2. Найти больше из трех данных чисел.
3. В одномерном массиве положительные элементы меншиты на 7.
лементов. Результат распечатать в виде:
Сумма наибольших=
Сумма наименьших=
№2
Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива
Заранее спасибо
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
заданного числа Z,то найти сумму четных элементов,иначе- произведение нечетных элементов.
Друзья,очень нужна ваша помощь,пожалуйста,если Вы решили мне помочь-отпишитесь. Заранее спасибо!
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.