Дан массив, содержащий 2014 неотрицательных целых чисел, не превышающих 10 000.Опишите на языке программирования Паскаль алгоритм, позволяющий найти и вывести сумму всех со-держащихся в массиве трёхзначных чисел, десятичная запись которых оканчивается на 9,но не на 99. Если подходящих чисел в массиве нет, программа должна вывести число –1. const N=2014; var a: array [1..N] of integer; i, j, s: integer; begin for i:=1 to N do a[i]:=random(__); ... end.
Дан массив, содержащий 2014 неотрицательных целых чисел, не превышающих 10 000.Опишите на языке программирования Паскаль алгоритм, позволяющий найти и вывести сумму всех со-держащихся в массиве трёхзначных чисел, десятичная запись которых оканчивается на 9,но не на 99. Если подходящих чисел в массиве нет, программа должна вывести число –1. const N=2014; var a: array [1..N] of integer; i, j, s: integer; begin for i:=1 to N do a[i]:=random(__); ... end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
va
a: array [1..N] of integer
i, j, s, sum: integer
begi
sum := 0
for i := 1 to N d
begi
if (a[i] >= 100) and (a[i] <= 999) and (a[i] mod 10 = 9) and (a[i] mod 100 <> 99) the
begi
sum := sum + a[i]
end
end
if sum = 0 the
writeln('-1'
els
writeln(sum)
end.