1. основным носителем информации в социуме на современном этапе является: а) бумага б) кино и фотопленка в) магнитная лента г) дискета, жесткий диск д) лазерный компакт-диск
Здесь задается только длина числа, а само число выводится рандомно, но если что, то можно сделать ввод с клавиатуры.
Var n,x: integer; k,m,i: byte; begin randomize; write ('Введите длину числа (M): '); readln (m); x:=1; // величина ограничителей значений числа при рандомном вводе for i:=2 to m do x:=x*10; n:=random(x,x*10-1); writeln ('n=',n); for i:=1 to m do begin if (n mod 10) mod 2 =0 then k:=k+1; n:=n div 10; end; writeln; writeln ('В этом числе ',k,' четных цифр'); end.
var mas: array[-1000..1000] of integer; i, min, max, n, razn: integer;begin //ввод количества элементов массива readln(n); //ввод массива и его вывод на экран randomize; for i := 1 to n do begin mas[i] := 500 - random(1000) - 1; write(mas[i]:5); if (i mod 10 = 0) then writeln; end; //поиск минимума и максимума min := mas[1]; max := mas[1]; for i := 2 to n do begin if (mas[i] < min) then min := mas[i]; if (mas[i] > max) then max := mas[i]; end; //нахождение разности razn := max - min; writeln; writeln('Разность = ',razn);end.
