//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.
Const max=24; var M:array[1..max] of integer; i,j,num:byte; X:integer;
procedure readArray(); var i:byte; begin Write('Введите длину массива M'); Readln(num); for i:=1 to num do begin Write('M[',i,']='); Readln(M[i]); end; Writeln(); end;
begin readArray();
Writeln('Задача: Найти количество элементов, модуль которых меньше X'); Write('Введите X='); Readln(X);
j:=0; for i:=1 to num do if Abs(M[i]) < X then j:=j+1;
Writeln(); Writeln(j, ' элементов, модуль которых меньше ',X); end.
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.