Предмет: Информатика,
автор: dzessika5
Паскаль: определить сколько раз встречается число k при генерации чисел с помощью цикла For (элементы сгенерировать randomom) СРОЧНААААААА!!!!!!!!
raf1O5:
В каком диапазоне должны генерироваться случайные числа? (Минимальное, максимальное)
Ответы
Автор ответа:
1
program raf105;
var n,k,i,raz:integer;
begin
write('Сколько чисел нужно сгенерировать?: ');
readln(n);
write('Число, которое нужно посчитать (k): ');
readln(k);
for i:=1 to n do
if (random(0,100))=k
then raz:= raz+1;
writeln('Из ',n,' сгенерированных чисел число ',k,' встретилось ',raz,' раз');
end.
Язык программирования PascalABC
program test;
begin
writeln(random(0,100));
end.
begin
writeln(random(0,100));
end.
program test;
begin
randomize;
writeln(random(0,100));
end.
begin
randomize;
writeln(random(0,100));
end.
Попробуйте так
Это в самом начале написать?
После begin
Опять пишет «функция RANDOM с параметрами указанных типов не найдена»
Program n1;
Const n=5;
Var a:array [1..n] of integer;
k,i:integer;
Begin
k:=0;
For i:=1 to n do readln (a[i]);
For i:=1 to n do if (a[i]=7) then k:=k+1;
Writeln(‘количество: ‘,k);
End.
А В ЭТУ ПРОГРАММУ МОЖНО КАК НИБУДЬ ИЗМЕНИТЬ? ПОД РАНДОМ И CONST УБРАТЬ?!
Const n=5;
Var a:array [1..n] of integer;
k,i:integer;
Begin
k:=0;
For i:=1 to n do readln (a[i]);
For i:=1 to n do if (a[i]=7) then k:=k+1;
Writeln(‘количество: ‘,k);
End.
А В ЭТУ ПРОГРАММУ МОЖНО КАК НИБУДЬ ИЗМЕНИТЬ? ПОД РАНДОМ И CONST УБРАТЬ?!
Комп пишет ошибку там где стоит *:
(random(,100)*)
(random(,100)*)
Вы не написали 0 перед запятой
На компе написала(это я здесь опечатала)
Похожие вопросы
Предмет: Алгебра,
автор: rafikusupov069
Предмет: Английский язык,
автор: zibekloskarova
Предмет: Геометрия,
автор: fjguvgyhgg
Предмет: Математика,
автор: mishaplotnikov1