Var A:array [-10..999] of real;b,c,i:integer;v:real;begin
write('Введите число K1');
read(b);
Write('Введите число k2');
read(c);
for i:=-10 to 10 doa[i]:=i;for i:=-10 to 10 do beginv:=a[i];if v >0 then a[i]:=a[i]*a[i];if a[i]<0 then a[i]:=a[i]*-1;
if a[i]>=0 then a[i]:=a[i]-b else a[i]:=a[i]-c;
end;end.
275, 8, 13
или к примеру..одно яблоко, семь стульев, один кот ._.
1-на улице тепло
2-сейчас на часах 16:03
3-домашнее задание нужно не просто зубрить,а понимать
4-сейчас в икее распродажа
5-за итоговый тест по физике , 8 классу добавляют 1 балл
6-сейчас на улице ровно +3 градуса
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),-50,50);
a.Println;
Writeln('Разность: ',a.Max-a.Min)
end.
<u><em>Тестовое решение:</em></u>
n= 15
28 -35 2 25 20 -48 47 24 1 9 17 24 -32 -41 -14
Разность: 95
4 двоичных переменных, значит 2⁴=16 строк -полное множество возможных значений