Найти максимальное из n введенных чисел.(циклы)
10-11 класс
|
Program sherilusha;
uses crt;
var
i,n: integer;
max, temp: real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Ввести количество чисел'); readln(n);
writeln('Введите числа');
write('1-е число:'); readln(max);
for i:=2 to n do
begin
write(i,'-е число:'); readln(temp);
if max<temp then max:=temp;
end;
writeln('Максимальное из введённых чисел равно ',max) ;
end.
Другие вопросы из категории
и среднее значение.
2. В одномерном массиве произвольных чисел вычислить среднее арифметическое значение квадратов положительных элементов.
3. напечатать числа следующим образом
14 10.4
15 11.4
...
27 25.4
Помогите пожалуйста, скоро зачет, надо все сдать
единиц. Если таких чисел несколько, укажите наибольшее из них. 1) 6310 * 410 2) F816 + 110 3) 3338 4) 111001112
Составьте блок-схему
алгоритма и программу вычисления периметра, медианы и площади
равностороннего треугольника.
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
2. Найти больше из трех данных чисел.
3. В одномерном массиве положительные элементы меншиты на 7.
оно четным или отрицательным.(Паскаль)
Или так: Из 16 -ти чисел,сделайте для каждого вывод,является ли оно четным или отрицательным .(Паскаль)
Помогите пожалуйста,оченьььь срочно надо!Буду благодарна за решение ,спасибо!!!!!!!
Написать процедуру для нахождения отрицательных и положительных чисел из строки, состоящий из произвольного набора цифр и букв.
*перевести полученное число в его двоичный код
*найти максимальное из чисел