Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Массив 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?
Нет

Ответ оставил Гость

Var a:array[1..10] of integer;q:boolean;i:integer;BeginRandomize;q:= false;writeln (Исходный массив);For i:=1 to 10 do begina[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.