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.
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию!
function MyNum(a:array of integer;lim:integer):=a.Where(x->x<lim).Count;
begin var p:=ArrRandom(ReadInteger('n='),-99,99); p.Println; var k:=ReadInteger('Введите границу отсечения элементов:'); Writeln('Количество элементов, меньших ',k,', равно ',MyNum(p,k)) end.
Пример n= 17 -50 -52 -98 1 99 27 -44 70 -65 -22 -64 48 91 3 -69 -69 52 Введите границу отсечения элементов: 23 Количество элементов, меньших 23, равно 11
Можно