Program spos; uses crt; var numb:array [1..100] of byte; // для последовательности чисел i,f:integer; //счетчик и переменная в качестве флага begin randomize; f:=0; for i:=1 to 100 do numb[i]:=random(101);// задает последовательность
for i:=1 to 100 do begin write(',',numb[i]); // вывод на экран последовательность(можно удалить) if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0 end; if f=0 then writeln('Yes') else writeln('No');
end.
program spos; uses crt; var numb:array [1..100] of byte; // для последовательности чисел i,f:integer; //счетчик и переменная в качестве флага begin randomize; f:=0; for i:=1 to 100 do begin numb[i]:=random(101);// задает последовательность write(' ',numb[i]);//вывод на экран, можно удалить end; writeln; i:=0; repeat i:=i+1; if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0 until i<100; if f=0 then writeln('Yes') else writeln('No');
Const N = 13; Var A:array[1..N] of integer; i,Min:integer; Begin Randomize; Write('Исходый массив:'); For i:= 1 to N do Begin A[i]:=random(10000)-5000; Write(' ',A[i]) End; WriteLn; Min:=1000; For i:= 1 to N do if (99<Abs(A[i]))and(Abs(A[i])<1000)and(A[i] mod 7 = 0)and(A[i]<Min) then Min:=A[i]; if Min = 1000 then WriteLn('В массиве нет трёхзначных элементов, кратных семи') else WriteLn('Min = ',Min); End.
