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