// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('Сумма первых пяти минимальных ',a.Sorted.Take(5).Sum)
end.
<u><em>Тестовое решение</em></u>
n= 15
63 53 44 40 29 47 56 55 58 73 56 42 62 95 84
Сумма первых пяти минимальных 202
64=1 000 000
31=11 111
62=111 110
800*600 = 480000 бит = 58.6 Кб.
i=4 бита
N=2^4 = 16 цветов.
Ответ:
Спросить
Объяснение:
Спросить зачем ему адрес и номер
ЗАДАНИЕ 2
program magazin;
var c,k,p,s:integer;
begin
writeln ('Предельная сумма – ');readln(p);
s:=0;
REPEAT;
writeln('Цена товара – ');readln(c);
writeln('Количество товара – ');readln(k);
s:=s+c*k;
writeln('Стоимость покупки =',s);
UNTIL s>p;
writeln('Не хватает!');
end.