Консольное приложение: const n=9; var l:array[1..n] of integer; i,max,imax,min,imin,s:integer; begin Randomize; writeln('Массив L:'); for i:=1 to n do begin l[i]:=random(51); write(l[i]:4); end; writeln; max:=l[1]; imax:=1; min:=l[1]; imin:=1; for i:=2 to n do begin if l[i]>max then begin max:=l[i]; imax:=i; end; if l[i]<min then begin min:=l[i]; imin:=i; end; end; writeln('max = l[',imax,'] = ',max); writeln('min = l[',imin,'] = ',min); s:=0; if imax>imin then for i:=imin+1 to imax-1 do s:=s+l[i] else for i:=imax+1 to imin-1 do s:=s+l[i]; writeln('s = ',s); end.
Пример: Массив L: 31 49 41 15 9 47 37 11 27 max = l[2] = 49 min = l[5] = 9 s = 56
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ReadArrInteger('Вводите данные:',n); a.Println; var s:=a.Where(x->(x>9) and (x<100) and (x mod 10=7)); if s.Count=0 then Writeln('Таких чисел нет') else Writeln(s.Sum) end.
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ReadArrInteger('Вводите данные:',n); a.Println; Writeln('Четных чисел ',a.Where(x->x.IsEven).Count); Writeln('Нечетных чисел ',a.Where(x->x.IsOdd).Count); end.
перший протатип случайного телефону запатентовано 1876 а в1877 бил савершон званок
Объяснение:
90х годы стоил от 1500 $ могли только позволить богатие с карманом болшим