Массив состоит из 15 случайных чисел,получить новый массив,в котором элементы первого массива имеют противоположный знак.в полученном массиве удвоить элементы,которые меньше -50.
Решение: Три варианта для обеда, три варианта для десерта. Возможных вариаций - 9(1-1,1-2,1-3,2-1,2-2,2-3,3-1,3-2,3-3). ответ: 9 P.S. - График предоставить могу, но мне, если честно, лень его чертить, сканировать и выкладывать для такой простенькой задачи. Поэтому предоставляю тебе альтернативный вариант: 1)Чертишь три прямоугольника 2)Отводишь от каждого из них по три стреолчки 3)На концах стрелочек чертишь еще три треугольника. В нижней строке должно получиться 9 прямоугольников. 4)Записываешь в каждый, по очереди, каждую из приведенных мной выше вариаций.
Решение: Три варианта для обеда, три варианта для десерта. Возможных вариаций - 9(1-1,1-2,1-3,2-1,2-2,2-3,3-1,3-2,3-3). ответ: 9 P.S. - График предоставить могу, но мне, если честно, лень его чертить, сканировать и выкладывать для такой простенькой задачи. Поэтому предоставляю тебе альтернативный вариант: 1)Чертишь три прямоугольника 2)Отводишь от каждого из них по три стреолчки 3)На концах стрелочек чертишь еще три треугольника. В нижней строке должно получиться 9 прямоугольников. 4)Записываешь в каждый, по очереди, каждую из приведенных мной выше вариаций.
uses crt;
var i: integer;
a:array [1..15] of integer;
begin clrscr;
randomize;
for i:=1 to 15 do
a[i]:=random(200)-100;
writeln('Массив:');
for i:=1 to 15 do
write(a[i]:5);
for i:=1 to 15 do
begin
a[i]:=-a[i];
if (a[i]<-50) then a[i]:=a[i]*2;
end;
writeln;
writeln;
writeln('Новый массив:');
for i:=1 to 15 do
write(a[i]:5);
READLN;
end.