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

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

.

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

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, klv
 int dat [5],i,klv;
dat[1]=3;
dat[2]=4;
dat[3]=5;
dat[4]=7;
dat[5]=9;
 
    //переменной klv присваиваем значение 0
 klv=0;
    //цикл со счетчиком i для перебора всех элементов массива
 for (i=1;i<=5;i++){
    //если значение элемента массива больше 4 
    //то klv увеличиваем на единицу 
 if (dat[i]>4){klv=klv+1;} }
    //вывод klv за пределами цикла
 cout << "kol-vo elementov massiva > 4 = "<< klv;
 
}
 

.

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

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

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