Var a:array[1..20] of integer; i,n,min,max,s:integer; begin randomize; s:=0; writeln ('Введи кол-во элементов в массиве'); readln(n); for i:=1 to n do a[i]:=random(35)-10; for i:=1 to n do if i mod 2 = 0 then writeln ('a[',i,']=',a[i]); for i:=1 to n do if i mod 2 >0 then writeln ('a[',i,']=',a[i]); for i:=1 to n do if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then s:=s+a[i]; writeln ('Сумма членов кратных 3 или 5 = ',s); min:=a[1]; max:=a[1]; for i:=2 to n do begin if a[i]<min then min:=a[i]; if a[i]>max then max:=a[i]; end; writeln ('Максимум=',max); writeln('Минимум=',min); end.
Uses graphabc; var i, j: integer; ar: array[1..10]of integer; b: boolean;
label l1; begin b := false; for i := 1 to 10 do ar[i] := random(10, 300); l1: b := false; for i := 1 to 10 do for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j) then begin b := true; ar[i] := random(30, 300); end; if b = true then goto l1; window.Init(0, 0, 800, 600, clwhite); window.IsFixedSize := true; randomize; lockdrawing; pen.Width := 5; for i := 1 to 10 do begin pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255)); drawcircle(400, 300, ar[i]); redraw; end; end.
PascalABC.NET
begin var (a,b) := ReadInteger2('Введите A и B:'); (A..B).Sum(x->(x.is mod 5=0) or (x mod 13=0)?x:0).Printend.Пример работы:
5 + 10 + 13 = 28