uses
SysUtils;
var
elki, elkiOverSize: array[1..50] of Integer;
i,j: Integer;
begin
randomize();
j:=0;
for i := 1 to 50 do
begin
elki[i] := random(170-45+1)+45;
if elki[i] = 160 then
begin
elkiOverSize[j] := i;
inc(j);
end;
end;
write('Оригинальный массив: ');
for i := 1 to 50 do
begin
write(IntToStr(elki[i])+' ');
end;
writeln();
writeln();
write('Индексы ёлок равных 160: ');
for i := 1 to 50 do
begin
if elkiOverSize[i] <> 0 then
write(IntToStr(elkiOverSize[i])+' ');
end;
writeln();
end.
<span>n = 1<span># перший подарок
</span>year = 1<span>#дн
</span>suma = 1<span># всі гроші
</span>print("Це твоє ", year, " день народження")
print("\tТепер у мене ", n, " $")
print("За всі дн ти зібрав: ", suma, "$")
print("-" * 50)
while n < 100<span>:
</span> n *= <span>2
</span> year +=<span>1
</span> suma += n
print("Це твоє ",year," день народження")
print("\tТвій подарок ",n," $")
print("-"*50)
print("За всі дн ти зібрав: ",suma, "$")</span>
3) 1;8
Допустим черные клетки это цифра 1
Грибов переел?
внешняя
инфармационная
внутренняя
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
ArrRandom(ReadInteger('n='),-15,25).Println
end.
<u><em>Тестовое решение:</em></u>
n= 15
-9 4 2 0 23 -1 9 -9 19 5 8 16 -9 16 12