Листинг программы и скиншот работы в приложениях.
Написано на PascalABC.NET но должно работать во всех Паскалях.
===== PascalABC.NET =====
begin
var p := ReadInteger('p =');
var a := ArrRandom(p, -99, 99);
a.Println;
var q := a.FindIndex(r -> r < 0);
if q > -1 then
begin
var b := a?[:q].Where(r -> r.IsEven).ToArray;
Print('Первый массив:');
b.Println;
var c := a?[q:].Where(r -> r.IsOdd).ToArray;
Print('Второй массив:');
c.Println;
end
else
Println('В массиве нет отрицательных элементов')
end.
Прогноз погоды на завтра - полезная
Вчерашний прогноз погоды - не полезная
Позволяет найти количество информации которое содержится в выбранной сообщении ( I ) , i - это информационный вес символа, k - это число символов в сообщении
Var s:string; k,i:integer;
begin
write('Введите текст: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='a' then k:=k+1;
writeln('В заданном тексте буква а встречается ',k,' раз');
end.