Var a:array [1..7] of real; i:integer; begin write ('Массив: '); for i:=1 to 7 do begin a[i]:=random(201)-100; write (a[i],' '); end; writeln; write ('Массив * 2: '); for i:=1 to 7 do begin a[i]:=a[i]*2; write (a[i],' '); end; end.
это возможно что выше а ниже значение 50 на 1 измени и все uses crt;var mas:array[1..20] of integer;i,b:integer;beginclrscr;randomize;for i:=1 to 20 do beginmas[i]:=random(51)+50;write(mas[i]:4);end;write('B=');readln(b);for i:=1 to 20 do beginmas[i]:=mas[i]+b;write(mas[i]:4);end;readkey;end.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
procedure FillRandom(var P:array of integer; a,b:integer); begin var (k,n):=(0,P.Length); repeat P:=ArrRandom(n,a,b); k+=1; until P.Distinct.Count=n; Writeln('Сделано ',k,' генераций массива') end;
begin var n:=ReadInteger('n='); var (a,b):=ReadInteger2('Укажите интервал значений элементов:'); if b-a+1<n then Writeln('Задание выполнить невозможно') else begin var x:=new integer[n]; FillRandom(x,a,b); x.Println end end.
1998 символов
Объяснение:
Дано:
I = 1,22 Кбайт = 1,22 * 1024 * 8 бит =
N = 32 симв.
Найти: K
N = 2^i.
2^5 = 2^i <=> i = 5 (бит)
K = I / i
K = 9994,24 / 5 ≈ 1998 (симв.)
ответ: можно разместить 1998 символов.