ПОМОГИТЕ НАПИСАТЬ ПРОГРАМУ!!!!!Подсчитать количество цифр в массиве больше 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.
Ответ:
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.