Написать программу на паскале: найти разность между К и суммой ...

Ирина

Желательно в задании уточнять тип массива (целый, вещественный ) и споособ его генерации(ввод с клавиатуры, генератор случайных чисел).

 

В данной программе массив получен с помощью  генератора случайных чисел 

 

  

Program raznost;

Uses Crt;

const n=100; {максимальный размер массива}

var a:array[1..n] of  integer; 

 

       i,m:integer;

       k,s,rez:longint;

begin

     clrscr;

     write('Введите К: ');

     readln(k);

     write('Введите размер массива