Question

Дан массив, содержащий 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.

Answer 1

const n=2014;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(10000);
 write(a[i],' ');
 end;
writeln;
s:=0;
for i:=1 to n do
 if (a[i]>99)and(a[i]<1000) then
   if (a[i] mod 10=9)and(a[i] mod 100 <> 99) then s:=s+a[i];
if s<>0 then writeln('s = ',s) else writeln(-1);
end.

Пример (для n=10):
912 2824 2249 2605 2125 2598 485 739 18 2124 
s = 739