Регистрация
SuperVai
18.02.2023 00:03
Информатика
Есть ответ 👍

Школьный уровень 1.найти все элементы массива b(n),большие или равные 0.на экран вывести номер элементов,их значения и количество. 2.в одномерном массиве целых чисел,содержащем 20 элементов,удалить k-ый элемент массива.массив заполняется случайным образом числами от 0 до 50.

229
381
Посмотреть ответы 2

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

zippik2006
zippik2006
4,6(43 оценок)

var

  b: array[1..100] of integer;

  i, count, n: integer;

begin

  randomize;

  write('n = '); readln(n);

  for i : = 1 to n do

  begin

      b[i] : = random(51) - 25;

      writeln('b[', i, '] = ', b[i]);

  end;

  writeln;

  count : = 0;

  for i : = 1 to n do

      if b[i] > = 0 then

      begin

          writeln('b[', i, '] = ', b[i], ' > = 0');

          inc(count);

      end;

  writeln('count = ', count);

end.

 

 

 

// вторая программа

 

const

  n = 20;

var

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

  i, k: integer;

begin

  randomize;

  writeln('исходный массив: ');

  for i : = 1 to n do

  begin

      a[i] : = random(51);

      write(a[i], ' ');

  end;  

  writeln;

   

  write('k = '); readln(k);

  if (k > n) or (k  < 1) then

  begin

      writeln('элемента с таким индексом нет');

      readln;

      exit;

  end;

  for i : = k to n - 1 do

      a[i] : = a[i + 1];

  a[n] : = 0;

  writeln('измененный массив: ');

  for i : = 1 to n - 1 do

      write(a[i], ' ');

  readln;

  writeln;

end.

 

Мандаринка500
Мандаринка500
4,5(86 оценок)

чистая . давай считать.

30 кбайт это 30720 байт.(в 1 кб 1024 б.)

каждый символ это 2 байта, тогда всего у нас 15360 символов(30720/2).

в каждой строке 64 символа. 15360/64 = 240 строк.

всего в файле 20 страниц. 240/20 = 12 строк.

итого на каждой странице по 12 строк.

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