Написать ! подсчитать количество цифр в массиве больше 5 4 2 6 7 8 6 + решить : var a: array() 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)> 3 then b: =b+1 write(b) end.

elenareznik201 elenareznik201    1   13.04.2019 21:07    0

Ответы
IvanVano05 IvanVano05  29.05.2020 10:19

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]>a) and(m[i] mod 5=0)then k:=k+1;

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика