Задание:
В массиве хранятся сведения об общей стоимости товаров, проданных фирмой за каждый день марта. Определить дни, в которые стоимость проданных товаровпревысила значение S.
Решение:
vara,b,i,S: integer; x: array[1… 100] of integer; beginfor i: =1 to 31 dobegin 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.
Знаете другой ответ?