Из 10 последовательно вводимых с клавиатуры чисел выбрать числа меньших 20

@ЕриК123 · Регистрация: 15.10.2013

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

Написать программу: Из 10 последовательно вводимых с клавиатуры чисел выбрать числа меньших 20 и найти из сумму и количество... СРОЧНО! За ранее спасибо.

@Sergio_Crowne · 11.11.2013, 02:15

Pascal

var a:array[1..10] of real;
i,n:integer;
sum:real;
begin
n:=0;
 
for i:=1 to 10 do
 begin
 readln(a[i]);
  if a[i]<20 then
   begin
   n:=n+1;
   sum:=sum+a[i];
   end;
 end;
writeln('количество');
writeln(n);
writeln('сумма');
writeln(sum);
end.

@ЕриК123 0 / 0 / 0 Регистрация: 15.10.2013 Сообщений: 3
		1
	Из 10 последовательно вводимых с клавиатуры чисел выбрать числа меньших 20 11.11.2013, 00:48. Показов 1685. Ответов 1 Метки нет (Все метки) Написать программу: Из 10 последовательно вводимых с клавиатуры чисел выбрать числа меньших 20 и найти из сумму и количество... СРОЧНО! За ранее спасибо. 0

	11.11.2013, 02:15

Из 10 последовательно вводимых с клавиатуры чисел выбрать числа меньших 20

Решение