Дан массив, содержащий 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 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
var
a: array [1..N] of integer;
i, j, s, sum: integer;
begin
sum := 0;
for i := 1 to N do
begin
if (a[i] >= 100) and (a[i] <= 999) and (a[i] mod 10 = 9) and (a[i] mod 100 <> 99) then
begin
sum := sum + a[i];
end;
end;
if sum = 0 then
writeln('-1')
else
writeln(sum);
end.