// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 begin var a:=ArrRandom(10,50,100); a.Println(', '); var s:=0; for var i:=0 to 9 do s+=a[i]; Writeln('s=',s) end.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 var a:array[1..10] of integer; i,s:integer; begin Randomize; s:=0; for i:=1 to 10 do begin a[i]:=Random(51)+50; Write(a[i],' '); s:=s+a[i] end; Writeln; Writeln('s=',s) end.
//Вроде бы знакомый аватар... //Соглашусь с предыдущим оратором, решается в 3 строки без циклов //Pascal ABC.NET v3.0 сборка 1111 Const n=10;
var ar:array[1..n] of integer; sum,i:integer; begin randomize; for i:=1 to 10 do begin; ar[i]:=random(50,100); sum+=ar[i]; write(ar[i]:4); end; writeln; write('Sum=',sum); end.
Крайние точки не учитываются. Если вам необходимо, чтобы они учитывались - замените знаки < и > на <= и >=
var Y0,X0:integer;
begin writeln('Введите координаты точки Y0 и X0'); readln(Y0,X0); if ( ((X0>-6) and (X0<-3)) and ((Y0>-3) and (Y0<2)) ) or ( ((X0>-6) and (X0<-1)) and ((Y0>2) and (Y0<6)) ) then writeln('Точка принадлежит области') else writeln('Точка НЕ принадлежит области') end.