Дан массив вещественных чисел,содержащий 25 частей вычислить сумму частей массива начиная
Дан массив вещественных чисел,содержащий 25 элементов вычислить сумму частей массива начиная с первого элемента и наибольшего элемента массива включительно
Задать свой вопросprogram zz1;
const n=25; // задаем количество чисел в массиве
var i, p:integer; // задаем переменную целого типа
max, s :real;
x:array [1..n] of real;
begin
for i:=1 to n do // организуем цикл, в котором введем с клавиатуры n данных чисел в массив
read(x[i]);
for i:=1 to n do
if x[i] gt; max then begin max:=x[i]; p:=i; end; // проверяем, если элемент массива больше наибольшего, то записываем его в наибольший и запоминаем его номер
for i:=1 to p do
s:=s + x[i]; // находим сумму
write( полученная сумма = ,s:5:2); // выводим полученную сумму в формате пять символов для числа и два знака после запятой
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Разные вопросы.
Математика.
Русский язык.
Русский язык.
Разные вопросы.
Қазақ тiлi.
Английский язык.
Математика.
История.