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

Question

Информатика

Линя

24 марта, 09:53

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

+3

Ответы (1)

Знаете ответ на вопрос?

Леоныч · 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 s0 then writeln ('s = ', s) else writeln (-1) ;

end.

Пример (для n=10) :

912 2824 2249 2605 2125 2598 485 739 18 2124

s = 739