В массиве хранятся сведения об общей стоимости товаров, проданных фирмой за каждый день марта. Определить дни, в которые стоимость проданных товаров превысила значение S.

Question

Информатика

Азелла

21 июля, 11:15

В массиве хранятся сведения об общей стоимости товаров, проданных фирмой за каждый день марта. Определить дни, в которые стоимость проданных товаров превысила значение S.

+4

Ответы (1)

Знаете ответ?

Артемич · Answer 1

var

a, b, i, S:integer;

x: array[1 ... 100] of integer;

begin

for i:=1 to 31 do

begin

x[i]:=random (1001) ;

write (x[i]:4) ;

end;

writeln;

readln (S) ;

writeln;

for i:=1 to 31 do

begin

if x[i]>S then

write (i:4) ;

end;

end.