Написать программу по нахождению суммы N четных чисел. ( S=2+4+6+…+2N).
2) Написать программу для нахождения введенных N чисел (P = P*a).

Объяснение:

Chip-penza.ru

Чип-тюнинг в Пензе

Main menu

Skip to primary content

Skip to secondary content

Главная

Авто

Советы автомобилистам

AUTHOR ARCHIVES: admin

Тест драйв jaguar f pace: После обновления Jaguar F-Pace полностью сменил салон — ДРАЙВ

После обновления Jaguar F-Pace полностью сменил салон — ДРАЙВ

Войти

Регистрация

Забыли пароль?

user

Выход

Найти ДРАЙВ

Наши

тест-драйвы

Наши

видео

Цены и

комплектации

Сообщество

DRIVE2

Новости

Наши тест-драйвы

Наши видео

Поиск по сайту

Полная версия сайта

Войти

Выйти

Acura

Alfa Romeo

Aston Martin

Audi

Bentley

Bilenkin Classic Cars

BMW

Brilliance

Cadillac

Changan

Chery

CheryExeed

Chevrolet

Chrysler

Citroen

Daewoo

Datsun

Dodge

Dongfeng

DS

FAW

Ferrari

FIAT

Ford

Foton

GAC

Geely

Genesis

Great Wall

Haima

Haval

Hawtai

Honda

Hummer

Hyundai

Infiniti

Isuzu

JAC

Jaguar

Jeep

KIA

Lada

Lamborghini

Land Rover

Lexus

Lifan

Maserati

Mazda

Mercedes-Benz

MINI

Mitsubishi

Nissan

Opel

Peugeot

Porsche

Ravon

Renault

Rolls-Royce

Saab

SEAT

Skoda

Smart

SsangYong

Subaru

Suzuki

Tesla

Toyota

Volkswagen

Volvo

Zotye

УАЗ

Kunst!

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(30);
  Writeln('1. Количество четных ',a.Where(t->t.IsEven).Count);
  var s:=a.Where(t->(t mod 3=0) and (t mod 9<>0) and t.Between(10,99));
  Write('2. Мудреное среднее арифметическое ');
  if s.Count=0 then Writeln(-1) else Writeln(s.Average);
  Write('3. Наибольшая длина цепочки четных элементов ');
  var (l,l1):=(-1,0);
  foreach var t in a do
    if t.IsEven then l1+=1
    else begin
      l:=Max(l,l1);
      l1:=0
      end;
  Writeln(l);
  var k:=ReadInteger('4. Номер удаляемого элемента (1-30):')-1;
  Writeln('Массив после удаления элемента');
  a:=a?[:k]+a?[k+1:]; a.Println;
  Write('5. Второй максимум ');
  a.OrderByDescending(t->t).Skip(1).Take(1).Println
end.

Пример
40 -116 91 -47 14 -10 -88 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49
1. Количество четных 19
2. Мудреное среднее арифметическое 54
3. Наибольшая длина цепочки четных элементов 9
4. Номер удаляемого элемента (1-30): 7
Массив после удаления элемента
40 -116 91 -47 14 -10 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49
5. Второй максимум 133