Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные яйчейки).
У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше 15, то увеличивайте число z на 1, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.
Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней.
Вывод консоли
d2f34g8h64h57
Kolichestvo chisel 8
var s:string; i,n:Integer;
begin
readln(s);
n := 0;
for i:=1 to Length(s) do begin // обходим строку в цикле
if (s[i]>='0')and(s[i]<='9') then inc(n);
end;
writeln('Kolichestvo chisel ',n); // выводим массив
readln();
end.
Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
Подсказка: массив должен быть "of char".
Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.
Например, из строки:
rew2@#$$#435tr353453t4er4
должны быть выделены подстроки: