1)сгенерировать и вывести на экран пять случайных чисел из интервала [-10; 10]. 2) одна штука некоторого товара стоит 22,4 руб. вывести таблицу стоимости 2, штук этого товара. паскаль,тема циклы,можно без for

1)

var i,a: integer;

begin

i: =0;

while i< 5 do

begin

i: =i+1;

a: =random(21)-10;

write(a,' ');

end;

end.

пример:

1 10 -2 -5 9

2)

var p: real; i: integer;

begin

p: =22.4;

i: =1;

while i< 10 do

begin

i: =i+1;

writeln(i,' шт: ',i*p: 5: 2,' руб.');

end;

end.

результат:

2 шт: 44.80 руб.

3 шт: 67.20 руб.

4 шт: 89.60 руб.

5 шт: 112.00 руб.

6 шт: 134.40 руб.

7 шт: 156.80 руб.

8 шт: 179.20 руб.

9 шт: 201.60 руб.

10 шт: 224.00 руб.

№1

begin

  5.range.select(t -> random(-10, ; // диапазон целый

  5.range.select(t -> round(random(-10.00, 10.00), ; // диапазон вещественный

end.

пример:

-6 -1 -7 5 -8

-9.33 -5.91 -2.68 5.83 -7.51

№2

begin

  10.range.select((e, i)-> (e, (i + 1) * 22.(t -> begin  

                                    println($'{t[0],2: f0} шт. - {t[1]: f2} руб.') end)

end.

результат:

1 шт. - 22.40 руб.  

2 шт. - 44.80 руб.  

3 шт. - 67.20 руб.  

4 шт. - 89.60 руб.  

5 шт. - 112.00 руб.  

6 шт. - 134.40 руб.  

7 шт. - 156.80 руб.  

8 шт. - 179.20 руб.  

9 шт. - 201.60 руб.  

10 шт. - 224.00 руб.