Технология выполнения индивидуальных заданий. Часть 1 - 14 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

14
Решение задачи представлено программой Posledovat.
program Posledovat;
var x,i,n: integer;
k: integer; { - количество положительных чисел}
s: integer; { сумма положительных чисел}
sr: real;{среднее арифметическое положительных чи-
сел, расположенных до первого нуля в последовательности}
st:boolean;
begin
write(
'Введите количество членов ');
readln(n);
s:=0; k:=0;
st:=true;
writeln(
'Вводите последовательность чисел');
for i:=1 to n do
begin
read(x);
if st then
if x>0 then
begin
s:=s+x; k:=k+1
end
else
if x=0 then st:=false
end;
if st then
writeln('нет нуля')

Страницы