Школьный уровень

1. Найти все элементы массива b (n), большие или равные 0. На экран вывести номер элементов, их значения и количество.

2. В одномерном массиве целых чисел, содержащем 20 элементов, удалить k-ый элемент массива. Массив заполняется случайным образом числами от 0 до 50.

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.