Задан массив, состоящий из 15 элементов целого типа. Определить сумму элементов, значения которых больше предпоследнего элемента
ABCPaskal
Ответы
Ответ дал:
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.
Пояснення:
Вас заинтересует
2 месяца назад
3 месяца назад
3 месяца назад
1 год назад
7 лет назад
7 лет назад