Вмассиве хранятся сведения об общей стоимости товаров, проданных фирмой за каждый день марта. определить дни, в которые стоимость проданных товаров превысила значение s.
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.
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.