Написать программы и если можно с блок схемой, но для начала просто программы , уиоляюю(паскаль)
1. два числа посредством генератора псевдослучайных чисел в диапазоне от 5 до 120 включительно. заменить первое число нулем, если оно меньше или равно второму, и оставить без числа изменений в противном случае.
2. два числа посредством генератора псевдослучайных чисел в диапазоне от -10 до 40 включительно. вывести первое число, если оно больше второго, и оба числа, если это не так.
3. число n задается посредством генератора псевдослучайных чисел в диапазоне от 7 до 17 включительно. вычислить n! применяя циклы.
4. число n задается посредством генератора псевдослучайных чисел в диапазоне от 7 до 17 включительно. число a задается посредством генератора псевдослучайных чисел в диапазоне от 1 до 5 включительно вычислить an.
5. найти и вывести на экран самое длинное слово в строке: ‘релейный локомотивный дешифратор числового кода’.
6. посчитать, сколько раз в введенной строке ‘ab bcd cd cda abc cd bddbc’ встречается сочетание ‘cd’.
7. задать квадратную матрицу ранга n (n вводится с клавиатуры, элементы массива – числа в диапазоне от 0 до 50, полученные посредством генератора псевдослучайных чисел). заменить матрицу на единичную, если сумма элементов матрицы – четное число.
8. задать квадратную матрицу ранга n (n вводится с клавиатуры, элементы массива – числа в диапазоне от 0 до 100, полученные посредством генератора псевдослучайных чисел). рассчитать сумму элементов матрицы, элементы которой лежат выше главной диагонали.
9. задано случайное число в диапазоне от 0 до . поменять порядок цифр в числе на обратный.
n,i,p,i1,i2: integer;
begin
write('n = ');
readln(n);
SetLength(a,n);
Randomize;
a[0]:=random(50)+100;
write(a[0]:4);
for i:=1 to n-1 do
begin
a[i]:=a[i-1]-random(11);
write(a[i]:4);
end;
writeln;
p:=a[0]-a[n-1];
writeln('p = ',p);
i1:=0; i2:=n-1;
repeat
i:=(i1+i2) div 2;
if a[i]>p then i1:=i1+1;
if a[i]<p then i2:=i2-1;
until (a[i]=p)or(i1>=i2);
if a[i]=p
then writeln('i = ',i)
else writeln('Искомого элемента нет');
end.
Пример:
n = 20
142 139 135 129 120 120 120 113 107 106 104 99 89 88 81 72 71 70 60 54
p = 88
i = 13