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]: =; 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