Найти общую стоимость тех товаров, которые стоят дороже 1000 рублей

@Юля1976 · Регистрация: 16.04.2015

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

Известные данные о стоимости каждого товара из группы. Найти общую стоимость тех товаров, которые стоят дороже 1000 рублей. Здравствуйте помогите решить задачу на языке PASCAL, я мама хочу проверить сына как он решил задачу, но не знаю этого языка.

@Puporev · 16.04.2015, 06:17

Pascal

var t:array[1..100] of integer;
     n,i,s:integer;
begin
write('Введите количество товаров от 1 до 100 n=');
readln(n);
writeln('Введите стоимость товаров');
s:=0;
for i:=1 to n do
 begin
  write('Товар ',i,'=');
  readln(t[i]);
  if t[i]>1000 then s:=s+t[i];
 end;
writeln('Общая стоимость товаров стоимостью более 1000 рублей=',s)
end.

@Юля1976 0 / 0 / 0 Регистрация: 16.04.2015 Сообщений: 1
		1
	Найти общую стоимость тех товаров, которые стоят дороже 1000 рублей 16.04.2015, 06:01. Показов 3040. Ответов 1 Метки нет (Все метки) Известные данные о стоимости каждого товара из группы. Найти общую стоимость тех товаров, которые стоят дороже 1000 рублей. Здравствуйте помогите решить задачу на языке PASCAL, я мама хочу проверить сына как он решил задачу, но не знаю этого языка. 0

	16.04.2015, 06:17

Найти общую стоимость тех товаров, которые стоят дороже 1000 рублей

Решение