Массив a[1 ... 10] заполните случайными целыми числами в диапазоне от 1 до 10. Определите, есть ли в массиве элемент, равный 5. Ответ выведите в виде слов "Да" или "Нет". В общем найдите мою ошибку (у меня выводится только 1 элемент, а не 10)

Program shist;

Var a:array[1 ... 10] of integer;

i:integer;

Begin

For i:=1 to 10 do

a[i]:=Random (10) + 1;

writeln ('Исходный массив') ;

For i:=1 to 10 do

begin

write (a[i], ' ') ;

writeln;

writeln ('Есть ли в массиве элемент, равный 5?') ;

break;

end;

if a[i]=5 then write ('Да') else write ('Нет')

End.

И вот что получилось

Исходный массив

7

Есть ли в массиве элемент, равный 5?

Нет

Question

Информатика

Корнюша

1 июля, 16:12

Массив a[1 ... 10] заполните случайными целыми числами в диапазоне от 1 до 10. Определите, есть ли в массиве элемент, равный 5. Ответ выведите в виде слов "Да" или "Нет". В общем найдите мою ошибку (у меня выводится только 1 элемент, а не 10)

Program shist;

Var a:array[1 ... 10] of integer;

i:integer;

Begin

For i:=1 to 10 do

a[i]:=Random (10) + 1;

writeln ('Исходный массив') ;

For i:=1 to 10 do

begin

write (a[i], ' ') ;

writeln;

writeln ('Есть ли в массиве элемент, равный 5?') ;

break;

end;

if a[i]=5 then write ('Да') else write ('Нет')

End.

И вот что получилось

Исходный массив

7

Есть ли в массиве элемент, равный 5?

Нет

+4

Ответы (1)

Знаете ответ на вопрос?

Ина · Answer 1

Var a:array[1 ... 10] of integer; q:boolean; i:integer; Begin Randomize; q: = false; writeln ('Исходный массив') ; For i:=1 to 10 do begin a[i]:=Random (10) + 1; write (a[i], ' ') ; if (a[i]=5) then q:=true; end; writeln; if (q) then writeln ('da') else writeln ('net') ; end.