Необходимо ввести массив из 8 элементов такой, чтобы каждый элемент был равен или 0 или 1, иначе выводится сообщение «Введно неверно, введите заново», и снова вводится этот элемент массива. Если снова неверно, то вводить опять, и так далее- Pascal(Паскаль)

const
 n=8;
var
 i:integer;
 a:array[1..n] of integer;
begin
  i:=1;
repeat 
  write('a[',i,']='); readln(a[i]);
  if (a[i]=0) or (a[i]=1) then i:=i+1
  else writeln('Введно неверно, введите заново');
until i>n;
end.

Похожие записи/страницы:

Leave a Comment

− 1 = 2