Информатика | 10 - 11 классы
Дан ряд чисел.
Найти наибольшее из чисел 2а1, 3а2, 4а3, …, 9а8.
ПАСКАЛЬ?
ПАСКАЛЬ!
Найти величину наибольшего из отрицательных чисел последовательности из 100 целых чисел.
Дан ряд чисел?
Дан ряд чисел.
П = 1 * 4 * 9 * 16 * 25.
Найти корень квадратный из произведений этого ряда.
Решить задачуДаны 3 числа найти сумму 2 наибольших чисел?
Решить задачу
Даны 3 числа найти сумму 2 наибольших чисел.
Вводится произвольная последовательность целых чисел?
Вводится произвольная последовательность целых чисел.
Найти наибольшее из всех чисел.
Дан массив А(10), заполненный датчиком случайных чисел?
Дан массив А(10), заполненный датчиком случайных чисел.
Найти наибольший элемент.
Прошу помогите!
Дан ряд чисел от n1 до n2?
Дан ряд чисел от n1 до n2.
Посчитать в паскале сумму отрицательных чисел в этом ряду.
Найти наибольшее из четырёх чисел?
Найти наибольшее из четырёх чисел.
На C + +.
Дан ряд чисел от 11 до 200?
Дан ряд чисел от 11 до 200.
Найти произведение чисел , кратных 7, из этого ряда (через pascal).
Ряд чисел?
Ряд чисел.
Найти наибольшее из чисел 2а1, 3а2, 4а3, …, 9а8.
Дан целостный ряд чисел от 0 до 1000?
Дан целостный ряд чисел от 0 до 1000.
Найти сумму и колличество чисел, кратных 5 и оканчивающихся на 0.
На этой странице находится вопрос Дан ряд чисел?. Здесь же – ответы на него, и похожие вопросы в категории Информатика, которые можно найти с помощью простой в использовании поисковой системы. Уровень сложности вопроса соответствует уровню подготовки учащихся 10 - 11 классов. В комментариях, оставленных ниже, ознакомьтесь с вариантами ответов посетителей страницы. С ними можно обсудить тему вопроса в режиме on-line. Если ни один из предложенных ответов не устраивает, сформулируйте новый вопрос в поисковой строке, расположенной вверху, и нажмите кнопку.
Const n = 8 ;
var a : array[1.
N] of integer ; i, t, im, max : integer ;
begin Writeln('Введите через пробел ', n, ' чисел') ; max : = - 32768 ; for i : = 1 to n do begin Read(t) ; a[i] : = t ; t : = (i + 1) * t ; if max < ; t then begin max : = t ; im : = i end ; end ; Writeln('Максимальное значение ', max, ' достигается как ', im + 1, ' * a[', im, ']')
end.
Тестовое решение :
Введите через пробел 8 чисел
4 - 3 5 4 3 2 1 0
Максимальное значение 20 достигается как 4 * a[3].