Решение задачи по написанию программы на подсчет суммы элементов в массиве меньших некоторого значения

Написать на трех языках программирования Pascal, C++, Школьшый алгоритмический язык программу на подсчет суммы элементов в массиве из 5 элементов,  меньших  4-х. , Массив задается внутри программы присваиванием значения ячейке массива (пример dat[2]:=44;  ---> в ячейку 2 массива dat записали значение 44)

Массив

.

Блок схема программы:

Кумир (символ | в начале строки обозначаент начало комментария, т.е. данная часть кода в алгоритме не участвет, а присутвует лишь для пояснения отдаваемых команд)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

алг 
нач
| резервируем область памяти для массива dat
цел таб dat[1:5]
| резервируем область памяти для переменных i, sum
цел i,sum
dat[1]:=3;
dat[2]:=4;
dat[3]:=5;
dat[4]:=7;
dat[5]:=9;
|переменной sum присваиваем значение 0
sum:=0;
| цикл со счетчиком i для перебора всех элементов массива
нц для i от 1 до 5  
| если значение элемента массива меньше 4,
| то к sum прибавляем значение этого элемента
если dat[i]<4 то sum:=sum+dat[i] все
кц
вывод "Сумма элементов массива < 4 = ", sum
кон

.

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#include <iostream>
 
using namespace std;
 
int main()
{
    //резервируем область памяти для массива dat и переменных i, sum
 int dat [5],i,sum;
dat[1]=3;
dat[2]=4;
dat[3]=5;
dat[4]=7;
dat[5]=9;
 
    //переменной sum присваиваем значение 0
 sum=0;
    //цикл со счетчиком i для перебора всех элементов массива
 for (i=1;i<=5;i++){
    //если значение элемента массива меньше 4 
    //то к sum прибавляем значение этого элемента 
 if (dat[i]<4){sum=sum+dat[i];}}
    //вывод sum за пределами цикла
 cout << "summa elementov massiva < 4 = "<< sum;
 
}
 

.

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

//резервируем область памяти для массива dat и переменных i, sum
var
  dat: array [1..5] of integer;
 
var
  i, sum: integer;
 
begin
  //заполняем массив числами
  dat[1]:=3;
  dat[2]:=4;
  dat[3]:=5;
  dat[4]:=7;
  dat[5]:=9;
  //переменной sum присваиваем значение 0
  sum := 0;
  //цикл со счетчиком i для перебора всех элементов массива
  for i := 1 to 5 do 
    //если значение элемента массива меньше 4,
    //то к sum прибавляем значение этого элемента 
    if (dat[i] < 4 ) then sum := sum+dat[i];
  //вывод sum за пределами цикла
  write('сумма элементов массива < 4 = ', sum);
end.
 

• Коменты VK
• Анонимные коменты, G+ или Facebook