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

Vika15678 Vika15678    2   04.10.2019 20:50    1

Ответы
sirdemenev sirdemenev  17.08.2020 08:13

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.

     

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика