Школьный уровень
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.
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
