Предмет: Информатика,
автор: levontyy
нужно написать программу к блок схеме
Приложения:
Ответы
Автор ответа:
0
var s:real;
z, n, k, i:integer;
begin
writeln('vvedy n');
readln(n);
z:=0;
s:=0;
for i:=1 to n do
writeln('vvedy k');
readln(k);
if k>=8 then
begin
z:=z+1;
s:=s+k;
end;
writeln(z);
writeln(s/z);
end.
z, n, k, i:integer;
begin
writeln('vvedy n');
readln(n);
z:=0;
s:=0;
for i:=1 to n do
writeln('vvedy k');
readln(k);
if k>=8 then
begin
z:=z+1;
s:=s+k;
end;
writeln(z);
writeln(s/z);
end.
Интересные вопросы
Предмет: Информатика,
автор: CONTRSTRAIK
Предмет: Физика,
автор: timoshenkonikita2
Предмет: Музыка,
автор: Uizzik
Предмет: Физика,
автор: alina009
Предмет: История,
автор: Стефани060801