Регистрация
Kissss1111
20.05.2020 23:43
Информатика
Есть ответ 👍

Дан одномерный массив c(n). удалить элементы одномерного массива равные чилу b, введенному с клавиатуры ; выведите на печать преобразованный массив и число его элементов.(паскаль abc)

138
377
Посмотреть ответы 2

Ответы на вопрос:

cotik22890
cotik22890
4,4(40 оценок)

program p1;

uses crt;

const n = 30;

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

i,b,k: integer;

begin

 

  for i: =1 to n do begin                       вывод рандомных элементов

    a[i]: =random(50);

    write(a[i]: 4);

    end;

      writeln;

    readln(b);

     

    for i: =1 to n do begin

      if b< > a[i] then begin   ( если b не равно эл массива то

          k: =k+1;                   (счётчик)

      write(a[i]: 4);                   (вывод))

      end;

        end;

        writeln;

      writeln(k);

       

      end.

     

elena30061984
elena30061984
4,4(97 оценок)
Ты должен поделить 450/150 и получится ответ 45/150=3 (бита) ответ: 3 бита.

Популярно: Информатика