<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandomReal(ReadInteger('n='),-50,50);
a.Transform(x->Trunc(100*x)/100); // Чтобы числа легче было читать))
a.Println;
var a0:=a[0];
a:=a.Select((x,i)->i.IsEven?x/a0:x).ToArray;
a.Println
end.
<u>Пример</u>
n= 8
-37.63 0.61 41.54 -46.8 34.42 23.66 13.12 7.64
1 0.61 -1.10390645761361 -46.8 -0.914695721498804 23.66 -0.348657985649747 7.64
Var x: integer;
begin
writeln ('Введите температуру воздуха');
readln (x);
if x<0 then writeln ('Дождь')
else writeln ('Снег");
end.
ASCII - 1 байт на символ
15*s*25*1 = 175.8*1024 байт
s = 175.8*1024/15/25/1 = 480.0512
значит строк немного больше 480
Ответ:
написана неправильно формула: =100_А1
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
type
s_b = record
s_d: array[1..31, 0..9]of integer;
s_o: array [0..9] of string;
d_m: array [1..31] of byte;
end;
var
r, d: s_b;
begin
r.s_o[0] := 'еда';
r.s_o[1] := 'zilie';
r.s_o[2] := 'oby4';
d.s_o[1] := 'myz';
d.s_o[2] := 'zina';
for var a := 1 to 31 do
for var b := 0 to 9 do
begin
r.s_d[a, b] := 0;
r.d_m[a] := a;
d.s_d[a, b] := 0;
d.d_m[a] := a;
end;
Println(r);
Println(d);
end.
покороче, убрано лишнее