Определить количество дней, в которые стоимость проданных товаров превысила значение s

@WizardHarry · Регистрация: 22.02.2012

Author24 — интернет-сервис помощи студентам

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

Заранее благодарен!!!

@Ev[G]eN · 22.02.2012, 23:04

Pascal

const
  n = 31;
var
  arr: array[1..n] of integer;
  Count, s, i: integer;
begin
  writeln('Введите сведения: ');
  for i:=1 to n do
  begin
    write(i, 'й день: ');
    readln(arr[i]);
  end;
  write('Введите число: ');
  readln(s);
  for i:=1 to n do
    if arr[i] > s then inc(Count);
  writeln('Кол-во дней, когда стоимость превысила ', s, ': ', Count);
end.

@WizardHarry · 23.02.2012, 20:20 **[ТС]**

Спасибо!)

@WizardHarry 1 / 1 / 0 Регистрация: 22.02.2012 Сообщений: 33
		1
	Определить количество дней, в которые стоимость проданных товаров превысила значение s 22.02.2012, 23:01. Показов 1689. Ответов 2 Метки нет (Все метки) В массиве хранятся сведения об общей стоимости товаров, проданных фирмой за каждый день марта. Определить количество дней, в которые стоимость проданных товаров превысила значение s. Заранее благодарен!!! 0

@WizardHarry 1 / 1 / 0 Регистрация: 22.02.2012 Сообщений: 33
	23.02.2012, 20:20 [ТС]	3
	Спасибо!) 0

Определить количество дней, в которые стоимость проданных товаров превысила значение s

Решение