Ккакому классу языков программирования относится кумир ? что является основным объектом алгоритмических языков программирования? какие параметры переменные должны быть определены в программе ?
//Pascal var A: array [1..5] of integer; min, max, minInd, MaxInd: integer; i: byte; begin writeln('Заполнение массива.'); for i := 1 to 5 do begin write('А[', i, '] = '); readln(A[i]); end; writeln; Max := A[1]; Min := A[1]; for i := 1 to 5 do begin if Max < A[i] then begin Max := A[i]; MaxInd := i; end; if Min > A[i] then begin Min := A[i]; MinInd := i; end; end; writeln('Номер минимального элемента = ', MinInd); writeln('Номера минимального и максимального = ', MinInd, ' и ',MaxInd); end.
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ArrGen(8,i->Ln(i+1.1)); x.Println; var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count; var im:=x.IndexMin; Writeln('На указанном интервале найдено элементов: ',k); Writeln('Минимальный элемент массива, равный ',x[im], ' имеет порядковый номер ',im+1) end.
Результат 0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839 На указанном интервале найдено элементов: 0 Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1
