найти среднее арифметическое всех чисел больших 38

@v4 · Регистрация: 25.11.2009

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

1. Integer
Вводится 8 чисел, найти среднее арифметическое всех чисел больших 38 и произведение остальных.
2. CHAR
Вводится текст, конкц ввода "F2". Найти количество букв А.

Спасибо.

@Puporev · 04.05.2010, 19:51

1.

Pascal

sr:=0;ks:=0;
p:=1;
for i:=1 to 8 do
 begin
  readln(a);
  if a>38 then
   begin
    sr:=sr+a;
    ks:=ks+1;
   end
  else p:=p*a;
 end;
if ks=0 then writeln('Нет чисел больше 38')
else
 begin
  sr:=sr/ks;
  writeln('Среднее=',sr:0:2);
end;
if ks=8 then write('Все числа больше 38')
else write('Произведение=',p);

@v4 · 05.05.2010, 06:52 **[ТС]**

А как вторую

@Puporev · 05.05.2010, 08:08

Pascal

uses crt;
var c:char;
    k:integer;
begin
clrscr;
writeln('Вводите символы, окончание ввода F2:');
k:=0;
repeat
c:=readkey;
if c<>#060 then write(c)
else writeln;
if c='A' then k:=k+1;
until c=#060;{расширенный код клавиши F2, можно написать и просто #60,
              тогда будет тоже по нажатию F2 работать, но кроме того и по
              нажатию  клавиши '<'}
write('Количество латинских букв А=',k);
readln
end.

@v4 0 / 0 / 0 Регистрация: 25.11.2009 Сообщений: 24
		1
	найти среднее арифметическое всех чисел больших 38 04.05.2010, 19:46. Показов 1875. Ответов 3 Метки нет (Все метки) 1. Integer Вводится 8 чисел, найти среднее арифметическое всех чисел больших 38 и произведение остальных. 2. CHAR Вводится текст, конкц ввода "F2". Найти количество букв А. Спасибо. 0

@v4 0 / 0 / 0 Регистрация: 25.11.2009 Сообщений: 24
	05.05.2010, 06:52 [ТС]	3
	А как вторую 0

	05.05.2010, 08:08