Заполните массив из 10 целых чисел через генератор случайных чисел в диапазоне от 3 до 10 и найти кол-во элементов массива значение которых равно 4 (в паскаль)

FREE PASCAL

1
Простите, не могу помочь =(
Если как-то может пригодиться, на паскале абц:
var a:array[1..10] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 10 do begin a[i]:=random(8)+3; write(a[i],' '); if a[i]=4 then k:=k+1; end;
writeln;
write(k);
end.
только первое число тут большим выходит всегда, а так прога отличная)))
я когда-то вот так писал(тут для любого числа, но не выводит само содержание массива, хотя это вообще легко написать, кстати тоже АБС
uses crt;
var i,kol:integer;
x:real;
N:array [1..100] of real;
z:char; label 1;
begin
1:for i:=1 to 100 do
N[i]:=random(100);
write('Введите искомое число: ');
read(x);
for i:=1 to 100 do
if N[i]=x then Inc(kol);
writeln('Число ',x,' встречается ',kol,' раз.');
writeln('Ещё??? y-да, n-нет.');
read(z);
if (z='y') or (z='Y') then goto 1
else
read;
end.

Ответы и объяснения

2013-11-05T22:25:59+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var i,k : integer;
 a: array[1..10] of integer;
Begin
  for i := 1 to 10 do begin
    a[i] := random(7) + 3;
    if a[i] = 4 then k:= k + 1;
  end;
  writeln(k);
End.