Базовые алгоритмы. 7 класс

Постановка задачи

Задача 1.Определить сумму двух чисел, вводимых с клавиатуры.

Этапы решения задачи на компьютере в среде Borland Pascal 7.0:

1.Загрузить среду программирования: C:\ BIN\BP\bp.exe
2.Ввод программы
3.Трансляция программы, поиск ошибок: < Alt + F9 >
4.Запуск программы на выполнение: < Ctrl+F9 >
5.Просмотреть результат: < Alt+F5 >
6.Запись на внешний носитель (диск):  F2
8.Выход из среды: < Alt+ X >

ПРОГРАММЫ
 Program z1_7;                                                               
 var                                                       
a:integer;                                           
b:integer;                                            
Sum:integer;                                           
begin   
  writeln('введите первое число:');                                            
  readln(a);                                                                 
  writeln('введите второе число:');                                            
  readln(b);                                                          
Sum:=a+b;                                                                  
writeln('сумма 2-х чисел:',Sum)                                              
end.

2.Алгоритм определения суммы цифр натурального числа.

program z2;                                                                
var                                                                        
n,ed,des,sot,sum:integer;                                                   
begin                                                                       
    writeln('введите число N<=999');                                        
    readln(n);                                                              
     if n > 999 then exit;                                                  
      ed:=n mod 10; {единицы}                                               
     des:=n div 10;                                                        
     des:=des mod 10;   {десятки}                                          
     sot:=n div 100; {сотни}                                               
  sum:=ed+des+sot;                                                      
 writeln('сумма цифр:',sum);                                           
 end.

3.Определить количества положительных значений в массиве Z(8) вещественного типа.

Program z3;
var 
k:integer;
z:array[1..8] of real;
begin
 k:=0;
for i:=1 to 8 do
 begin
   writeln(‘->’); readln(z[i]);
   if (z[i]>0) then k:=k+1;
end;
writeln(‘количества  положительных значений:’,k)
end.