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

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 руб.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.