Составить программу вычисления арифметической…

Тема в разделе "Информатика", создана пользователем IIapTu3aH, 12 янв 2016.

  1. IIapTu3aH

    IIapTu3aH Школьник

    Регистрация:
    12 фев 2015
    Сообщения:
    0
    Симпатии:
    0
    Составить программу вычисления арифметической прогрессии числовой последовательности. Где кол-во элементов и сами элементы вводятся склавиатуры?
     
  2. Lemyr7777

    Lemyr7777 Школьник

    Регистрация:
    2 июл 2011
    Сообщения:
    0
    Симпатии:
    0
    vari,p,k,r,s: integer; mas: array[1… 100] of integer; begins: =0; read (k); for i: =1 to k doread (mas); r: =mas[2]-mas[1]; for i: =1 to k dos: =s+mas; writeln ('raznost progressii=', r, ', summa elementov progressii=', s); end.
     

Поделиться этой страницей