ПОМОГИТЕ НАПИСАТЬ ПРОГРАМУ!!!!!Подсчитать количество цифр в массиве больше 5 4 2

ПОМОГИТЕ НАПИСАТЬ ПРОГРАМУ!!!!!
Подсчитать количество цифр в массиве больше 5
4 2 6 7 8 6
+ помогите решить задачку :
var
a:array(1...5) of integer;
b:integer;
Begin
b:=3
a(1):=3;
a(2):=4
a(3):=5
a(4):=2
a(5):=3
for (a(i)+1)gt;3 then b:=b+1
write(b)
end.

Задать свой вопрос
1 ответ

Ответ:

uses crt;

const nmax=100;

var m:array[1..nmax] of integer;

   n,i,a,k:integer;

begin

randomize;

repeat

write('Размер массива до ',nmax,' n=');

read(n);

until n in [1..nmax];

writeln('Начальный массив:');

for i:=1 to n do

begin

 m[i]:=random(50)+1;

 write(m[i]:4);

end;

writeln;

write('Введите число для поиска a=');

read(a);

k:=0;

for i:=1 to n do

if(m[i]gt;a) and(m[i] mod 5=0)then k:=k+1;

writeln('Количество частей великих ',a,' и кратных 5=',k);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт