Написать программу для Паскаля : дан массив n чисел.Найти сумму чисел больше заданного числа a

1

Ответы и объяснения

Лучший Ответ!
2012-01-29T19:15:00+04:00

program zadacha; 
uses crt; 
var b: array [1..n] of integer; 
s,a,i:integer; 

begin 
clrscr; 
s:=0; 
randomize; 
write('Vvedite chislo a: '); 
readln(a); 
for i:=1 to 5 do begin 
b[ i ]:=random(201)-100; 
writeln(i,' element massiva a raven : ',b[ i ]); 
if (b[ i ]>a) then s:=s+b[ i ]; 
end; 
writeln('Summa elementov massiva ravna : ',s); 
readln; 
end.