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

07.02.2013, 23:07. **Показов** 3484. **Ответов** 1

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

В последовательности чисел найти среднее значение из всех всех введенных чисел,кратных 7. И в этой же программе найти наименьшее из всех четных введенных чисел.

Просьба сделать через оператор whilе,c учетом того что массив заканчивается нулем,и без оператора array

Вот попробовал набросать

Pascal

var n,k,s,p,min:integer;
begin
     k:=0;
     s:=0;
     p:=0;
 
write('Введите число: '); readln(n);
while n<>0 do begin
 
if n mod 7=0 then
 
begin
    p:=p+1; s:=s+n;
end;
     end;
if p=0 then writeln('Таких чисел нет!') else
writeln('Среднее арифметическое = ', s/p:3:1);
end.

@Leshak · 08.02.2013, 11:59

В Принципе вы почти написали сами, вам только пару моментов не хватило.

Pascal

Uses crt;
var
n, s, p, min, i:integer;
begin
clrscr;
     s:=0;
     p:=0;
     i:=0;
     min:=1000;
 
write('Enter n:');readln(n);
if ( n = 0 ) then writeln('wrong number') else begin
while ( n <> 0 ) do begin
 
write('Enter n:');readln(n);
 
if n mod 7=0 then begin
    p:=p+1; s:=s+n;
end;
if ( n mod 2 = 0 ) and ( n < min ) and ( n <> 0 ) then min:=n;
 
 inc(i);
 end;
end;
 
if p=0 then writeln('Таких чисел нет!') else
writeln('Среднее арифметическое = ', s/p:3:1);
 
writeln('min=',min);
 
readln;
end.

	08.02.2013, 11:59