Надо! 23 ! паскаль! массив 5х10 заполнить случайными числами [0; 100]. найти максимальное и минимальное число, кратное 5.массив 3х5 заполнить случайными числами [-10; 10]. с клавиатуры вводится номер столбца. найти среднее арифметическое элементов этого столбца.массив 5х3 заполнить случайными числами [0; 100]. поменять местами максимальное и минимальное число массива.4. массив из 100 целых чисел заполнить случайными числами из интервала (-1000; 1000)5. массив из 25 целых чисел заполнить с клавиатуры вставить число 555 перед первым максимальным числом массива6. массив из 20 целых чисел заполнить случайными числами числами из интервала(-12; 12) определить, все ли числа в нем равнозначные.
const
alpha=['a'..'z'];
digits=['0'..'9'];
var
na,nd,i:integer;
s:string;
begin
na:=0; nd:=0;
Write('Введите текст: '); Readln(s);
for i:=1 to Length(s) do
if s[i] in alpha then Inc(na)
else
if s[i] in digits then Inc(nd);
if na>nd then Writeln('В тексте больше букв')
else
if na<nd then Writeln('В тексте больше цифр')
else Writeln('В тексте букв и цифр поровну')
end.
Тестовое решение:
Введите текст: the equation 3.546x^2+4.18x-4.1=0
В тексте больше букв