Program test; var arr:=ArrRandom(10,1,2000); a,b,i: integer; begin for i:=0 to 9 do if (arr[i] div 100 > 0) and (arr[i] div 100 < 10) and (arr[i] mod 5 = 0) then write(arr[i]+' '); end.
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,h:real; Write('Введите начальное значение, конечное и шаг: '); Read(a,b,h); var n:=Trunc((b-a)/h)+1; for var i:=1 to n do begin var x:=a+(i-1)*h; var y:=(x>0) and (x<=2)?x*x+Cos(x):4/x; Writeln(x:0:3,' ',y:0:5) end end.
program t1; var a: array[1..6] of integer; i, m, mi: integer; begin writeln('ввод массива'); for i := 1 to 6 do readln(a[i]); mi := 1; m := a[mi]; for i := 2 to 6 do if a[i] < m then begin mi := i; m := a[mi]; end; writeln('минимум: ', m, ' (a[', mi, '])'); end.
2) предполагая, что 'коробочка' - это корень
program t2; const F = -8; T = 6; S = 2; var i: real; function GetY(x: real): real; begin if (x > -3) and (x <= 3) then GetY := sqrt(x) else GetY := 1 / (x * x); end; begin writeln('промежуток [', F, '; ', T, '], шаг ', S, ':'); i := F; while i <= T do begin writeln('y(', i, ') = ', GetY(i)); i := i + S; end; end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,1,2000); a.Println;
a.Where(x->x.InRange(100,999) and (x mod 5=0)).Println
end.
Пример
1337 1824 163 415 330 1865 180 1695 539 551
415 330 180