Написать программу осуществляющую поиск в одномерном массиве A, состоящего из 20 элементов, заданных случайным образом элемента, равного 50. Если такого нет, вывести на экран сообщение “Такого нет”.
Ответы
Ответ дал:
0
var a:array[1..20] of integer;
i,k: integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(51)+25;
write (a[i],' ')
end;
writeln;
for i:=1 to 20 do
if a[i]=50 then
begin
writeln (i,' элемент = ',a[i]);
k:=k+1
end;
if k=0 then writeln ('Такого нет')
end.
Ответ дал:
0
ну все я окончательно запуталась
Ответ дал:
0
a[i]:=random(76)+25 это для 50?
Ответ дал:
0
random (x) дает случайное число от 0 до x-1,т.е random (51) дает случайное число от 0 до 50
Ответ дал:
0
random (15) дает случайное число от 0 до 14
Ответ дал:
0
a[i]:=random(15)+13 промежуток [13;27] random (15) дает случайное число от 0 до 14, а затем к этому случайному числу прибавляется 13. Минимальное число random (15) 0, когда к нему прибавляют 13 получается 13. Максимальное число random (15) 14, когда к нему прибавляют 13 получается 27.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад