Задан массив, состоящий из 15 элементов целого типа. Определить сумму элементов, значения которых больше предпоследнего элемента
ABCPaskal
Ответы на вопрос
Ответил klazik4562185
0
Відповідь:
var
array: array[1..15] of integer;
sum, i: integer;
begin
sum := 0;
for i := 1 to 15 do
begin
read(array[i]);
if array[i] > array[14] then
sum := sum + array[i];
end;
writeln(sum);
end.
Пояснення:
Новые вопросы