Программа на Паскале

[diagen_62]

Программа на Паскале

Дана последовательность чисел в количестве n штук.определить сколько из них кратно числу 7

 

[shrek=)]

А последовательность каким образом задается?

Если случайно (random) то вот таким вот образом:

var
n,i,c:integer;
a:array [1..10000] of integer;
begin 
c:=0;
randomize;
write ('Введите размер последовательности   ');
readln(n);
for i:=1 to n do begin 
a[i]:=random(100);
if a[i] mod 7=0 then inc(c);
end;
writeln ('Количество чисел кратных 7  ',c);
readln
end.

 

[diagen_62]

а что значит эти строчки:
<<a:array [1..10000] of integer;
<<<randomize;
<<<a:=random(100);

 

[shrek=)]

a:array [1..10000] of integer;

Определение массива размерность 10000 значений;

randomize;

Инициализация генератора случайный чисел;

a:=random(100);

Присвоение i'тому элементу массива случайного значения;

 

[diagen_62]

а можете помочь составить эту программу не через массив...
я не понимаю чего-то...

var
i,c,n:integer;
begin
c:=0;
randomize;
writeln('Введите размер последовательности ');
readln;
for i:=1 to n do begin
c:=random(100);
if c mod 7=0 then inc(c);
end;
writeln('Количество чисел кратных 7 =',c);
readln;
end.


объясните пожалуйста что не так?уже пару часов сижу пробую всё, а ниче не получается(

 

[Vladimir_S]

объясните пожалуйста что не так?уже пару часов сижу пробую всё, а ниче не получается(

И не получится, если вы и само проверяемое на делимость на 7 число, и счетчик количества чисел обозначаете одной и той же буквой с! Попробуйте так:

var
 i,a,c,n:integer;
begin
 c:=0;
 randomize;
 write('Введите размер последовательности ');
 readln(n);
 for i:=1 to n do 
 begin
  a:=random(100);
  write(a:4);
  if a mod 7=0 then inc(c);
 end;
 writeln;
 writeln('Количество чисел кратных 7 = ',c);
 readln;
end.

 

[diagen_62]

а что значит:
write(a:4);?????

 

[ww01031977]

а что значит:
write(a:4);?????

выводит на экран переменную А. на все число выделяется 4 символа.