Дан одномерный массив, состоящий из вещественных частей. Отыскать сумму элементов массива,
Дан одномерный массив, состоящий из вещественных частей. Отыскать сумму частей массива, расположенных до заключительного положительного элемента.
Задать свой вопросprogram zz1;
const n = 50; // задаем количество частей в массиве
var i, k:integer; // задаем переменные целого типа
m:array [1..n] of real;s:real;
begin
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
m[i]:=random(21)-10+random;
for i:=1 to n do // выводим приобретенный массив на экран
write(m[i]:8:2);
writeln; // переходим на новейшую строчку для вывода ответа
for i:=n downto 1 do
if m[i] gt; 0 then begin k:=i;break;end; // обретаем последний положительный элемент
for i:=1 to k do
s:=s + m[i];
writeln( сумма частей массива, расположенных до заключительного положительного элемента = , s); // выводим ответ
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.
Математика.