Дан массив, содержащий 2014 неотрицательных целых чисел, не превышающих 10 000.Опишите на языке программирования Паскаль алгоритм, позволяющий найти и вывести сумму всех со-держащихся в массиве трёхзначных чисел, десятичная зап...
Дан массив, содержащий 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.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы