Составьте алгоритм решения задачи и представьте его любым удобным Вам способом (на естественном языке, на псевдокоде/алгоритмический язык, в виде блок-схемы или на языке программирования Pascal)

1. С клавиатуры вводятся три целых числа. Определите количество положительных чисел в этом наборе.

2. С клавиатуры вводится целое число n. Вычислите сумму S=1+2+3 + ... + n.

3. С клавиатуры вводится целое число N. За ним последовательно вводятся данные о росте N учащихся класса. Определите средний рост учащихся всего класса.

4. Вводится расстояние L в сантиметрах. Выясните, сколько в нём полных метров. Выведите это количество.

1) var a1, a2, a3, s: integer;

begin

write ('Введите первое число: ') ;

readln (a1) ;

write ('Введите второе число: ') ;

readln (a2) ;

write ('Введите третье число: ') ;

readln (a3) ;

if a1>0 then s:=s+1;

if a2>0 then s:=s+1;

if a3>0 then s:=s+1;

writeln (s) ;

end.

2) var n, s, i: integer;

begin

write ('Введите число n: ') ;

readln (n) ;

for i:=1 to n do

s:=s+i;

writeln (s) ;

end.

3) var n, s, i, k: integer;

begin

write ('Введите число n: ') ; readln (n) ;

for i:=1 to n do begin

writeln ('Введите рост ', i,' учащегося: ') ;

readln (k) ;

s:=s+k;

end;

writeln (s/i) ;

end.

4) var l, m: integer;

begin

write ('Введите расстояние в сантиметрах: ') ;

readln (l) ;

m : = l div 100;

write ('Количество метров в ', l, ' сантиметрах = ', m) ;

end.

Program task1;

var a, i, kol : integer;

begin

for i: = 1 to 3 do begin readln (a) ; if a > 0 then inc (kol) ; end; writeln (kol) ;

end.

program task2;

var n, result : integer;

function summa (x : integer) : integer; var i, sum : integer; begin for i: = 1 to x do sum: = sum + i; summa: = sum; end;

begin

readln (n) ; result: = summa (n) ; writeln (result) ;

end.

program task3;

var i, n, growth, sum, kol : integer; SrGrowth : real;

begin

readln (n) ; sum: = 0; kol: = 0; for i: = 1 to n do begin readln (growth) ; sum: = sum + growth; inc (kol) ; end; SrGrowth: = sum/kol; writeln (SrGrowth) ;

end.

program task4;

var l : integer;

begin

readln (l) ; l: = l div 100; writeln (l) ;

end.