Задать вопрос Регистрация
Помочь другим

  • Написать программу на паскале: найти разность между К и суммой всех элементов массива с нечетными индексами

Ответы 1

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

     

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

     

      

    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('Введите размер массива <100: ');

         readln(m);

     

     

         randomize; 

         write('Исходный массив:')

     

        s:=0;

         for i:=1 to m do

              begin

                   a[i]:=random(50)+25;   

     

                   write(i:3);   

     

                   if  (i mod 2)<>0 then s:=s+a[i];

     

               end;

         writeln;

         rez:=k-s;       

         writeln('Разность между K и суммой всех элементов массива с нечетными индексами=',rez);

         readkey;

    end. 

     

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years