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

Нужно составить программу с помощью команды повторения с параметром. Задача: задать таблицу из пяти элементов, определить есть ли в ней число 10.

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

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  var flag: boolean :=false;
  var a:=ArrRandom(5,1,20);
  a.Println;
  for var i:=0 to 4 do
    if a[i]=10 then flag:=true;
  if flag then println(Есть) else println(Нет)
end.